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Try to 


11- 




FREMEM 


— 


Free a 


12- 




TRYPLS 


— 


Determ 


13- 




TRYRON 


— 


Try to 
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20- 
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— 
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— 
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QCPU 


— 


Place 


32- 




GTSYMB 
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Get sy 


33- 




TSXTRP 


— 


Catch 


34- 




TRPMAP 


— 


High-p 


35- 




UEXINT 


— 


Unexpe 


37- 




CLKINT 


— 


Clock 


38- 




ENSYS 


— 


Enter 


39- 




INTEN 


— 


Interr 


42- 




FORK 


— 


Queue 


43- 




FRKGET 


— 


Get a 


44- 




FORKQ 


— 


Queue 


45- 




SYNCH 


— 


Queue 


46- 




QUNSIG 


— 


Signal 


47- 




SYSHLT 


— 


Fatal 


48- 




INIJMP 


— 


Final 
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nonnno 



000000 





. TITLE 


TSEXEC 




CSECT 


TSEXEC 




. ENABL 


LC 




. ENABL 


AMA 




. DSABL 


GBL 


TSEXEC: 







TSX-Plus Executive Module 



TSEXEC is the executive control module of TSX-Plus. 

It contains routines to perform job scheduling* memory management* 

clock interrupt processing* etc. 

Copyright (c) 1980, 1981* 1982* 1983* 1984, 1985. 
S&H Computer Systems* Inc. Nashville* Tn. 

All rights reserved. 

Written by Phil Sherrod. 

Global definitions 

EXEC, STOP* CLKINT, INTLVL* CLKRTI* DIEARG, DIEMSG 

DIESP* SYSHL1, TRPAR5, USP* INBSY* OUTBSY* EXCBUF 

ENQTL* DEQ* FORCEX, UREGO* TRP250* QSRCH 

, QHIPRI* FPTRAP* TRP4* TRP10, STKLVL* ABRTOV 

, INTEN* SYSXIT* SUTOP, MRKTHD, INIJMP 

, FORK, KMNSTR, KMNSTK, KMNPGS 

, QNSPND* INTPRI* TRP14, TRP20, TRP24 

EXCINI* INITFL, GTSYMB, QHDSPN, MBFFLG 

, DAT I ML* DATIMH* UIOCNT* SS, ENSYS 

, PMFLGS, PMBASE, PMTOP, PMNBPC* INTENX 

PMRUN* PMCELS, SYNCH* UEXINT* MEMPAR 

* JMPO, LOKSWP* MEMSWP* DTLX, SYPNCR* CKUSP2 

, EXCJOB* EM*SOF* MAPSYS* SYSMAP, UEXRTN 

, TIKCNT* TK5CNT, MINCTR* CLKPS* CLKPC 

, RUNQTL, QCPU, GNSPNX* GHDSPX 

USRJOB, SPDJOB, GETMEM, TRYPLS, TRYRGN 

, FRKCGE* RUNQHD, SWPCOT, TRYMEM, MEMXPN 

, FPUUSE* UMSPSV, CURVC 

, INTSND* SS* SSEND, GUNS I G 

, FRKGET, FORKG* SWPPOS* SWPJOB* CURFRK 

, CXTPAG* CXTPDR, CXTRMN, SLTSIZ 

, CXBOWN, CXBJOB, CXBBAS* CXBSIZ, CXBMOV 

Global references 



GLOBL 


SCHED, 


GLOBL 


DIEPC, 


GLOBL 


ENQHD, 


GLOBL 


CHKABT 


GLOBL 


DOSCHD 


GLOBL 


TSEXEC 


GLOBL 


KMNCHN 


GLOBL 


TRP34* 


GLOBL 


ODTTRP 


GLOBL 


PMUSER 


GLOBL 


PMPAR, 


GLOBL 


SETMAP 


GLOBL 


CHKUSP 


GLOBL 


CLKCNT 


GLOBL 


RUNGHD 


GLOBL 


BRKPT, 


GLOBL 


INTPRI 


GLOBL 


FREMEM 


GLOBL 


INTSTK 


GLOBL 


FRKPRI 


GLOBL 


CXTWDS 


GLOBL 


CXTBUF 



GLOBL *GEMAR 

GLOBL CFLAG* MAXSRD* SR*PAR* SR*PDR* 

GLOBL *DILUP, *INIT, SDISCN, LIOCNT, 

GLOBL *VNOTT, GETRTG* SWDISP, WINDSP 

GLOBL *INKMN* *SETCC, NEWUSR, VSWPFL 

GLOBL S*IOFN, S*CPU, *FPUEX, PO*DBG, 

GLOBL EMTCAD, SPCPS, CPLEMT* MAPPAR, 

GLOBL S**RUN, QUECHR, *DBGBK, DBGBRK 

GLOBL GF*SYN* QF*IOT* CG*JOB, S*TWFN 

GLOBL MMENBL, SROMMR* MEM256* EMMAP, 

GLOBL S*INWT* S*TMWT* *DEBUG, BRKENT 

GLOBL LSW* LSW4, LJSW* LBSPRI* VPRIVR 



SR*PX* DOTRMP 
IOHLTM, S*SPND 

, *RDSAV* LSW1 1 
PRIVCO 
*SUSPN 
, SWAPER 
, QCOMPL 
IOMAP, SR3MMR 
, *NOUCR 
CURCP 
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GLOBL LSW8, *SGI 10, *SGHIO, CQ*FLG, QF*SCR 

GLOBL FREIOQ.- LCMPL- «YRH| T. CQ*CP 

GLOBL LSTATE, FQ*PRI, FP*MAX, FP*DEF, CP*SYN 

GLOBL CQ*LNK, CG*RTN, CQ*RO, CQ*R1, CQ*PA5 

GLOBL SB*TXT, SB*PNT, CCFLG, LSCCA, FREFRK 

GLOBL USRJOB, INITGO 

GLOBL RPAR, RPDR, D. FLAG, D*DMON 

GLOBL ERRLOC, JSWLOC, UFPTRP 

GLOBL EM*PFT 

GLOBL EM*UEI, EM*MPR, EM*JMO, EM*FRK 

GLOBL TSXTX, TRPCOM, SYSDIE, LPRI, VPRIHI, VPRILO 

GLOBL *CTRLC, LSW9, *VIRJB, TRPBPT 

GLOBL LQLINK, *NOABT, CXTBAS, VPAR5 

GLOBL CORUSR, MA*RGN 

GLOBL MINTIM, FP*CKT 

GLOBL CWSFPU, CONFIG, LIOHLD 

GLOBL S*$HIP, UPMODE 

GLOBL * I NCOR, SYSDIE, FPTRPX 

GLOBL LMEMIN, LBASE, SPSAVE, PCCCR2i PROFLG 

GLOBL QFREE, *NDMEM, LSTSL, CONFIG 

GLOBL UP ARO, UPDRO, UPAR 1 , UPDR 1 , KP AR6, PSW 

GLOBL S*WFM, LNBLKS, LPARBS, *MLOCK, *NLOCK 

GLOBL FG*LNK, FQ*R4, FQ*R5, FGSRTN, FG*PA6 

GLOBL RMNPDR, UPAR6, UPDR6, UPAR7, UPDR7 

GLOBL UMODE, *IOMAP, S**RT, LCXPAR, FG*PA5 

GLOBL UHIMEM, FREIOG, FQ*UFB 

GLOBL LITIME, FQ*R1,FQ*R2, FQ*R3 

GLOBL S*HICP 

GLOBL CW*FPU, JSTKND 

GLOBL MINTIM 

GLOBL VINTIO 

GLOBL SNMSHD, SB*LNK, *KINIT 

GLOBL NMUMB 

GLOBL LQUAN 

GLOBL BASMAP, LOMAP, HIMAP, FREPGS, *MAPOK, LSW7 

GLOBL S*TMWT, S*INWT 

GLOBL CQ*PRI, CQ*RNS 

GLOBL MAPUSR 

GLOBL CS*ERR, CS*EOF 

GLOBL PMSIZE 

GLOBL R*UBAS 

GLOBL LSW6 

GLOBL SN*RTN, SN*JOB, SN*ID 

GLOBL OVRHC, OVRADD, O. PAR, KPAR5 

GLOBL CLKRUN, I OP AGE 

GLOBL LNSBLK 

GLOBL LHIPCT, VHIPCT, S$RT, S*LOW 

GLOBL CUPARO, CUPAR 1, CUPAR6, CUPAR7 

GLOBL CUPDRO, CUPDR1, CUPDR6, CUPDR7 



% 
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i 

2 






3 






4 




001000 


5 




000600 


6 






7 






8 






9 




000015 


10 




000012 


11 




000007 


12 






13 


000000 


000 


14 


000001 


000 


15 


000002 


000 


16 


000003 


000 


17 


000004 


000 


18 


000005 


000 


19 


000006 


000 


20 


000007 


377 


21 


000010 


377 


22 


000011 


000 


23 


000012 


001 


24 


000013 


000 


25 


000014 


020 


26 


000015 


000 


27 


000016 


000 


28 


000017 


000 


29 


000020 


000 


30 






31 






32 


000022 


000000 


33 


000024 


000000 


34 


000026 


000000 


35 


000030 


000000 


36 


000032 


000000 


37 


000034 


000000 


38 


000036 


000000 


39 


000040 


000000 


40 


000042 


000000 


41 


000044 


000000 


42 


000046 


000000 


43 


000050 


000000 


44 


000052 


000000 


45 


000054 




46 


000066 


000000 


47 


000070 


000000 


48 


000072 


000000 


49 


000074 


000000 


50 


000076 


177777 


51 


000100 


177777 


52 


000102 


000000 


53 


000104 


000000 


54 


000106 


000000 


55 


000110 


000000 


56 


000112 


000000 


57 


000114 


000000 



Misc. data cell*. 



SS 
SSEND 



1000 
600 



Ascii characters 



CR 
LF 
BELL 

RUNQHD 

RUNQTL 

USRJOB 

SPDJOB 

DOSCHD 

SWPCOT 

EXCJOB 

INTLVL 

STKLVL 

FRKPRI 

INITFL 

FPUUSE 

PROSKP 

CXBOWN 

CXBJOB 

INBSY: 

OUTBSY 



IIMTSTK 

INTSND 

DTLX: 

ODTTRP 

SYSMAP 

TRPAR5 

DIEMSG 

DIEARG 

DIEPC: 

DIESP: 

KMNSTK 

KMNSTR 

KMNPGS 

KMNCHN 

MRKTHD 

MEMSWP 

LOKSWP 

MBFFLG 

CLKCNT 

TIKCNT 

CLKPC: 

CLKPS: 

DAT I ML 

DATIMH 

TK5CNT 

UIOCNT 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EVEN 

WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
BLKW 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



15 
12 

7 



O 



O 



O 



-1 

-1 



1 



16. 
















O 



o 





5 





-1 

-1 










; Top of system stack area 
; Base of system stack 



; Carriage-return 
; Line-feed 
iBell 



list 

list 

usr data base 

SPD data base 

job scheduling 

when CORTIM expires 

access to system 



Head of execution state 

Tail of execution state 

Number of job that owns 

Number of job that owns 

Non-zero ==> need to do 

Non-zero ==> Reschedule 

# of job with exclusive 

Interrupt level counter 

. GE. ==> Running on interrupt stack 

Current fork priority 

Non-zero ==> system initialization being done 

Non-zero ==> FPU unit in use by current job 

Counter used for PRO-350 clock interrupts 

Number of job that owns CXTBUF 

Number of job whose cxt blk is in CXTBUF 

Number of job currently being inswapped 

Number of job currently being outswapped 



Pointer to start of interrupt stack 
Pointer to last word in interrupt stack 

# minutes of uptime for demo system 
Address of breakpoint entry into system ODT 
number of system segment currently mapped 
Kernel PARS content when trap occured 
Pointer to system crash message 

Argument value for system crash 

Address of call to SYSHLT 

Kernel par 5 mapping at time of crash 

Address of Kmon stack 

Starting address of Kmon 

# 256-word memory pages needed to run TSKMON 
Save status for Kmon file channel 

Head of mark-time queue list 

# jobs needing memory-expansion outswap 

# jobs needing to be locked in memory 
Non-zero ss = s >Message buffer was freed 



;# USER I/O OPERATIONS IN PROGRESS 



4 

i 
< 

« 

< 

f 
« 
< 

« 
< 

< 
t 
4 

< 
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58 000116 

59 000120 

60 000122 

61 000124 

62 000126 

63 000130 

64 000132 

65 000134 

66 000136 

67 000140 

68 000142 

69 000144 

70 000146 

71 000150 

72 000152 

73 000154 

74 000156 

75 000160 

76 000162 

77 000164 

78 000166 

79 000170 

80 000172 

81 000174 

82 000176 

83 000200 
84 

85 
86 
87 
88 000202 



001130 
000000 
000340 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

ooooooc 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
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ge 2-1 


MINCTR 


. WORD 


600. 




usp- 


WORD 


n 




INTPRI 


. WORD 


340 




FRKCQE 


. WORD 





FORK queu 


SYPNCR 


. WORD 





Pending s 


CURVC: 


. WORD 





Addr of c 


CURFRK 


. WORD 





Address o 


SWPPOS 


. WORD 





Ptr to ta 


SWF JOB 


. WORD 





Ptr to ta 


SLTSIZ 


. WORD 





# blocks 


PMUSER 


. WORD 





# of user 


PMFLGS 


. WORD 





PF* flags 


PMBASE 


. WORD 





Base addr 


PMTOP : 


. WORD 





Top addre 


PMNBPC 


. WORD 





Number of 


PMPAR: 


. WORD 





, Address o 


PMCELS 


. WORD 


PMSIZE/2 


-Number of 


PMRUN: 


. WORD 





Non-zero 


CXTWDS 


. WORD 





# words f 


CXTPAG 


. WORD 





# 512-byt 


CXTPDR 


. WORD 





PDR value 


CXTRMN 


. WORD 





Address i 


CXTBUF 


. WORD 





;Addr of b 


CXBBAS 


. WORD 





iAddr of d 


CXBSIZ 


. WORD 





; Amt of da 


RMNPDR 


. WORD 





i PDR value 



End of TSEXEC data area. 
Begin 1024 byte buffer used 



EXCBUF: 



le head 

>ystem mark-time compl requests 
:urrent direct interrupt control blk 
>f currently running fork routine 
ible with swap file slot positions 
ible with #'s of jobs in swap slots 
used by each slot in swap file 

doing performance monitoring 

for performance monitor 
'ess being monitored 
>ss of region being monitored 

bytes per p. m. cell 
»f pm vector area 

cells in pm vector area 
if performance mon in progress 
■or job context block 
;e pages for job context block 

to map job context block 
.n context area of simulated RMON 
iuffer used for accessing cxt blk 
lata currently in CXTBUF 
ita currently in CXTBUF 

to map to simulated RMON 



by TSINIT at this point. 
; Base of area used by TSINIT for buffer 



i 

\ 



\ 
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i 
c 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



Macro to print *n error message when a system crash occurs. 

Arguments: 
MSG = Name of error message to print. 
ARG = <Optional) argument value to display with error message. 

. MACRO DIE MSG, ARG 

MOV MSG, @#DIEMSG 

. IF NB, ARG 

MOV ARG, @#DIEARG 

. ENDC 

CALL S#SYSHLT 

. ENDM DIE 

Macro definition for call global routines residing in mapped system regions 

. MACRO OCALL ENTADD 
.IF B, ENTADD 

.ERROR ; OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEXIT 
. ENDC 

CALL OVRHC i CALL THE OVERLAY HANDLER 

.WORD ENTADD ; SPECIFY THE ENTRY POINT 

. ENDM 



MACROS TO ENABLE AND DISABLE INTERRUPTS. 
'DISABL' RAISES THE CPU PRIORITY LEVEL TO 7. 
'ENABL' LOWERS THE PRIORITY TO THE CURRENT OPERATING 
PRIORITY WHICH IS STORED IN INTPRI. 



. MACRO 


DISABL 


BIS 


#340, @#PSW 


. ENDM 


DISABL 


. MACRO 


ENABL 


BIC 


INTPRI, S#PSW 


. ENDM 


ENABL 



; DISABLE INTERRUPTS 



; RESTORE INTERRUPT STATUS 



TSEXEC 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



000202 000137 OOOOOOG 



000206 000207 



c 



> Starting point of execution of TSX-Plus. 

i 

i Enter initialization module. 



START: JMP 



INITGO 



i Call from TSTTY for A R to allow breakpoint capture for debugging. 

i 

BRKPT: RETURN ; return to TSTTY for echo processing 



TSEXEC • 


— TSX-Plus Executive Mo 


SCHED ■ 


— Suspend job and look 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


000210 


010046 




16 


000212 


010146 




17 


000214 


010246 




18 


000216 


010346 




19 


000220 


010446 




20 


000222 


010546 




21 








22 








23 








24 


000224 


020627 


000000G 


25 


000230 


101010 




26 


000232 






27 








28 








29 








30 


000252 


010603 




31 


000254 


012706 


001000 


32 


000260 


004737 


002416' 


33 


000264 


010337 


OOOOOOG 


34 


000270 


105037 


OOOOOOG 
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Suspend job and look for another 



The SCHED routine is called to suspend the execution of the 

current user and to look for another user to execute. 

SCHED selects the highest priority user who is ready to run 

(or waits for a user to get ready to run), gets that user into 

main memory, and then returns control over to the user. 

On return from SCHED. the user is ready to run and the execution 

time quantums have been set up. 

When called, the user's stack must be in SP. 

All registers are preserved. 



Save 


all 


of 


the user's registers 


ED: 


MOV 




RO, -<SP) 




MOV 




Rl. -(SP) 




MOV 




R2. -<SP) 




MOV 




R3, -<SP) 




MOV 




R4, -(SP) 




MOV 




R5. -(SP) 



on his stack 



Check for user stack overflow. 

CMP SP, #JSTKND 

BHI 1$ 

DIE #EM*SOF, #3 

Say user is no longer executing. 



i check the stack limit 
i br if stack is ok 
; stack overflow 



1*: 



MOV 


SP.R3 


MOV 


#SS. SP 


CALL 


PKSTAT 


MOV 


R3. SPSAVE 


CLRB 


CORUSR 



; Save user's stack pointer 

> Switch to system stack 

iPack status into job context block 

; Save user's stack pointer in his context area 

> User is no longer running 



< 

4 
) i 
i 
< 
I 

i< 
€ 

I 

< 
i 
4 
4 

< 

4 
< 
4 

« 
( 
( 
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6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
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000274 
000300 



000306 
0003 i 4 
000320 
000324 
000326 
000334 
000336 
000344 
000346 
000352 



000354 
000362 



Find a job to run. 

The EXEC module is entered from SCHED to find the next user to run. 

EXEC locates the highest priority user and if that user is 

ready to run starts execution of the user. 

EXEC is also called at the end of TSX initialization to begin 

operation of the system. 

If current job is a real-time job that has acquired exclusive 
access to the system* continue to run it and bypass the normal 
swapping and scheduling process. 



113701 
001031 



000006 ' 



MOVB 
BNE 



EXCJ0B,R1 
GTRDY 



i Is there an exclusive real-time job? 
i If yes then go try to run it 



000302 004737 000626 ' 



Call the swapper and see if it has anything to do. 

EXEC: CALL SWPCHK > Give swapper a chance to run 

Now search down the job run queue from highest priority to lowest 
priority looking for a job that is in memory and wants to run. 



105037 
113701 
001413 
026127 
101007 
032761 
001007 
116101 
001365 



000004 ' 
000000 ' 

000000G 000000G 1*: 

000000G 000000G 

000000G 



DISABL 




CLRB 


DOSCHD 


MOVB 


RUNGHD, Rl 


BEG 


2$ 


CMP 


LSTATE(R1>,#S*« 


BHI 


2* 


BIT 


#*INC0R,LSW(R1) 


BNE 


GTRDY 


MOVB 


LQLINK<R1),R1 


BNE 


1* 



.Disable interrupts 

; Say a scheduler cycle has been done 

; Point to 1st job in run queue 

»Br if no jobs <system must be idle) 

I ; > > Does this job want to run? 

i Br if there are no jobs that want to run 

; Is this job in memory now? 

i Br if yes 

.Try next job in list 

i Br if there is another to test 



There are no in-core jobs that want to run. 
Loop in scheduler until one becomes available. 



2*: 



000747 



ENABL 
BR 



EXEC 



i Enable interrupts 

; Keep looking for a job to run 






< 

€ 



TSEXEC • 
SCHED • 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Suspend job and look for another 



We found a job to run. 

The job index number is in Rl. 



000364 
000370 



000376 
000404 
000406 



110137 000000G 



GTRDY: 



MOVB 
ENABL 



Rl,CORUSR 



i i Say this job is running 
Enable interrupts 



032761 
001002 
000137 



0000000 000000G 

ooooooe 



000412 
000420 
000422 
000426 
000430 
000436 
000440 
000444 
000450 



032761 
001415 
105761 
001404 
012761 
000406 
012700 
004737 
000137 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
004424 ' 
000302 ' 



See if uie are reactivating an old job or starting a new job. 

BIT #*INIT, LSW(Rl) ; Is this an old or new job? 

BNE 2* ;Br if old job 

JMP NEWUSR ; Go initialize a new job 

We are reactivating an old job. 

If the execution of this job has been suspended/ put job back to sleep. 

2*: BIT #*SUSPN, LSW<R1) J Has job's execution been suspended? 

BEQ 6* > Br if not 

TSTB LI0CNT<R1) i Does job have any I/O active now? 

BEQ 7* ; Br if not 

MOV #I0HLTM,LI0HLD<R1> ;Hold I/O for this job 

BR 6* ;But let it run till I/O stops 

7*: MOV #S*SPND, RO ; Put job in suspended state 

CALL ENQTL ; Put job in suspended state 

JMP EXEC i Go back to scheduler to find another job 



Set up kernel-mode PAR6 to point to job's context block 

000454 016137 OOOOOOG OOOOOOG 6*: MOV LCXPAR(R1 ), @#KPAR6 i Map kpar6 to job's context block 

Set up memory mapping registers for this job. 

Check to see if the memory mapping registers are already loaded 

for the job we want to run. 



000462 
000466 



120137 
001411 



OOOOOOG 



CMPB 
BEQ 



R1,MAPUSR 
5* 



•> Is memory mapping set for job we want to run? 
» Br if yes 



000470 
000476 
000500 
000504 
000506 



032761 
001003 
004737 
000402 

004737 



OOOOOOG OOOOOOG 
001534' 
002276 ' 



000512 
000520 
000522 
000526 
000530 



032761 
001415 
016100 
001407 
052737 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



Memory mapping is not set up correctly for the job we want to run. 
Determine if mapping information in job's context block is set up 
correctly. If so» just load it into PAR registers* otherwise 
call SETMAP to compute memory mapping information. 

BIT #*MAPOK, LSW7<R1 ); Is memory mapping info in context block ok? 

BNE 3* ; Br if yes 

CALL SETMAP ; Set up memory mapping registers for the job 

BR 5* 

3*: CALL LODMAP ; Load par registers from context block info 

See if double Ctrl-C occured while we were asleep and user 

did a . SCCA. 

If so* set status flag in SCCA status word. 

5*: BIT #*SETCC> L5W4<R1>; Do we need to set control-c status flag? 

BEQ 1* i Br if not 

MOV LSCCA<R1>,R0 ; Does user want control-c trap control? 

BEQ 4* i Br if not 

BIS #UPMQDE* @#PSW ; Set user-previous-mode in PS 



I 
I 

i 
i 

i 

i 

i 
< 
< 
« 
< 
i 
4 
< 
< 

< 

i 
4 
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58 
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60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
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75 
76 
77 
78 
79 
80 
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82 
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84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
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000536 106510 

000540 052716 OOOOOOG 

000544 106610 

000546 042761 0000000 OOOOOOG 4*: 



MFPD @R0 /Get current contents of user's flag cell 

BIB #CCFLG, (BP) j Set ctrl-c flag 

MTPD @R0 ; Store into cell in user's program space 

BIC #*SETCC> LSW4(R1>; Say it has been done 



Unpack job status information from context block. 



000554 013703 OOOOOOG 1*: 

000560 004737 002562' 



MOV SPSAVE, R3 
CALL UPSTAT 



Get pointer to job context area stack 
Unpack status for job 



000564 010306 



000566 004737 002732 ' 



000572 032761 OOOOOOG OOOOOOG 

000600 001403 

000602 



Switch to job's internal stack. 

MOV R3» SP i Run on stack in context block 

See if we need to call any completion routines for this job. 

CALL DOCMPL ; Run any pending completion routines 

See if we need to redisplay display window for job 

BIT #*WDISP» LSW6(R1 ); Do we need to redisplay window? 

BEG 9* i Br if not 

OCALL WINDSP /Redisplay window for job 

Restore user's registers 



000610 012605 9*: MOV <SP>+, R5 

000612 012604 MOV <SP>+, R4 

000614 012603 MOV <SP)+, R3 

000616 012602 MOV <SP)+, R2 

000620 012601 MOV (SP>+, Ri 

000622 1 2600 MOV ( SP ) +, RO 



000624 000207 



Return to life! 
RETURN 



; Return from SCHED 






TSEXEC 
SWPCHK 
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See if job swapping is needed 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



000626 105737 000000G 
000632 001407 



000634 113700 000020' 
000640 153700 000017' 
000644 001002 



000646 004737 OOOOOOG 



000652 000207 



. SBTTL SWPCHK — See if job swapping is needed 
SWPCHK is called to see if jobs should be swapped into or out of memory. 



SWPCHK: TSTB 
BEG 



VSWPFL 
9* 



; Is this a non-swapping system? 
; Br if non-swapping system 



Return quickly if the swapper is currently busy 



^Outswap busy flag 

; Inswap busy flag 

i Br if swapper is busy now 



The swapper is not currently busy. 

Call the swapper to see if it needs to do any swapping. 



MOVB 


OUTBSY, RO 


BISB 


INBSY, RO 


BNE 


9* 



9* 



CALL 
Finished 

RETURN 



SWAPER 



Try to do any job swapping 



TSEXEC - 
GETMEM - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
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000654 010246 



000656 
000662 
000666 
000670 
000672 



000674 
000700 



000702 
000706 
000712 
000716 
000722 
000726 
000730 
000734 



000736 
000740 



016100 
020037 
101402 
000261 
000421 



004737 
103416 



010261 
072227 
010261 
013700 
072027 
060002 
010261 
000241 



012602 
000207 



. SBTTL GETMEM 



Try to get free memory for a job 



GETMEM is called to attempt to obtain a memory region for a job. 
If the memory space is available it is claimed for the job. 

Inputs: 
Ri = j b index number 
LMEMIN(Rl) = Number of pages of memory needed for job 

Outputs: 

MEMMAP updated to show memory space allocated to job. 

LBASE(Rl) = Base page number allocated to job. 

- PAR relocation value for base of job (above context block) 

= PAR relocation value for job context block. 

on return if not enough free space was available. 



LPARBS<R1) 
LCXPAR<R1) 
C-flag set 



GETMEM: MOV 



R2, -<SP> 



t 
I 

i 
i 

< 



See if the total number of free pages is adequate for the request 



O00OO0G 
000000G 



MOV 

CMP 

BLOS 

SEC 

BR 



LMEMIN(Rl) 
RO, FREPGS 
2* 

9* 



RO i Get total number of pages needed for job 
.Are there enough total free pages? 
; Br if there are enough total free pages 
.Signal failure on return 



There are enough total free pages. 

Now see if there are enough contiguous free pages. 



000742 ' 



2*: 



CALL 
BCS 



TRYMEM 
9* 



; Try to find contiguous space for job 
» Br if cannot find free space for job 



We got enough free space for the job. 

Set up information about memory for the job. 



000000G 

000003 

000000G 

000164' 

000003 

000000G 



MOV 
ASH 
MOV 
MOV 
ASH 
ADD 
MOV 
CLC 

Finished 



R2, LBASE(Rl) 

#3, R2 

R2, LCXPAR(Rl) 

CXTPAG, RO 

#3, RO 

RO, R2 

R2, LPARBS(Rl) 



Base 512-byte page number assigned to job 

Convert to 64-byte page number 

This is value for PAR to map to job context 

# 512-byte pages used by job context block 

Convert to # 64-byte pages 

Add # pages used by job context block 

This is value for 1st PAR register for job 

Signal success on return 



9*: 



MOV (SP)+, R2 
RETURN 



i 

< 



TSEXEC — 
TRYMEM — 

1 
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4 
5 
6 
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29 
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31 
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34 
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000742 
000744 
000746 
000750 
000754 



000756 
000764 
000770 



000772 
000776 
001000 
001002 
001004 
001006 
001010 
001012 



001014 
001016 
001020 
001022 
001024 
001026 
001030 
001032 



001034 
001036 
001040 
001042 
001044 



010346 
010446 
010546 
013746 
010046 



013737 
013704 
005000 



013703 
020403 
103036 
160403 
105724 
001402 
077303 
000431 



011605 
005304 
010402 
105724 
001003 
005305 
001407 
077305 



005402 
060402 
020200 
101753 
010200 



. SBTTL TRYMEM — Try to allocate memory space for a job 

TRYMEM is called to attempt to locate a free memory region of 

a specified size. If the region is found* it is claimed for the job. 

Inputs: 
RO = Number of 512-byte pages wanted. 
Rl = Job index number. 

Outputs: 
C-flag cleared ==> Successfully got the region. 
C-flag set ==> Could not locate a large enough region. 
RO = Largest free region available. 
R2 = Base page number of region gotten (only if C-flag cleared). 



OOOOOOG 



TRYMEM: MOV 
MOV 
MOV 
MOV 
MOV 



R3, -<SP) 
R4, -<SP> 
R5, -<SP> 
@#KPAR5, -CSP) 
RO, -<SP> 



Save system PAR 5 mapping 

Save request size on top of stack 



0000006 OOOOOOG 
OOOOOOG 



Set up pointers to memory map table 

MOV MAPPAR, S#KPAR5 ; Map PAR 5 to the mem allocation table 

MOV LOMAP, R4 > Pointer to 1st user available entry in MEMMAP 

CLR RO > Save largest free region in RO 

Search for the start of a free region 



OOOOOOG 



8*: 



1*: 



MOV 


HIMAP,R3 


CMP 


R4, R3 


BHIS 


10* 


SUB 


R4, R3 


TSTB 


(R4) + 


BEQ 


2* 


SOB 


R3, 1* 


BR 


10* 



Pointer past last user page entry in MEMMAP 

Are me beyond end of last possible page? 

Br if beyond end of user memory region 

Calc # pages remaining to be checked 

Is this page free? 

Br if the page is free 

Loop if more pages remain to be checked 

Br if no free region 



Found a free region — Determine how large it is. 



2*: 



4*: 



MOV 


(SP),R5 


DEC 


R4 


MOV 


R4, R2 


TSTB 


(R4) + 


BNE 


3* 


DEC 


R5 


BEQ 


5* 


SOB 


R3, 4* 



Get requested number of pages 

Point to 1st entry in page table 

Remember pointer to 1st page entry 

Is this page free? 

Br if not 

Does this satisfy the request? 

Br if yes 

Loop if more pages left to check 



This region is not large enough. 

Remember size of largest free region seen. 



3*: 



NEG 


R2 




ADD 


R4, 


R2 


CMP 


R2, 


RO 


BLOS 


8* 




MOV 


R2, 


RO 



; Calculate size of this free region 

; Is this the largest free region seen so far? 

; Br if not 

i Remember size of largest free region 



TSEXEC - 


— TSX-Plus Executive Mo 


TRYMEM - 


— Try t 


o alloca 


te memor 


58 


001046 


000751 




59 








60 








61 








62 








63 


001050 


010203 




64 


001052 


011605 




65 


001054 


010500 




66 


001056 


160537 


0000000 


67 


001062 


110123 




68 


001064 


077502 




69 


001066 


163702 


0000000 


70 


001072 


000241 




71 


001074 


000401 




72 








73 








74 








75 


001076 


000261 




76 








77 








78 








79 


001100 


012605 




BO 


001102 


012637 


OOOOOOG 


81 


001106 


012605 




82 


001110 


012604 




83 


001112 


012603 




84 


001114 


000207 





Friday 22-Jan-88 14:44 
job 



BR 



8* 



Page 10-1 



i Continue searching 



We found a free region of adequate size. 
Claim the region for this job. 



5*: 



7*: 



MOV 


R2, R3 


MOV 


<SP),R5 


MOV 


R5, RO 


SUB 


R5, FREPOS 


MOVB 


Rl, <R3) + 


SOB 


R5, 7* 


SUB 


BASMAP, R2 


CLC 




BR 


12$ 



Get base page number of region 

Get request size 

Return request size in RO 

Decrease total number of free pages 

Mark pages as in use by this job 

i Get page number of start of region 
; Signal success on return 



Could not find a large enough region 



10*: SEC 
i Finished 



12*: 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP>+, R5 
(SP)+, S#KPAR5 
<SP)+, R5 
<SP>+, R4 
(SP)+, R3 



Signal failure on return 



} Pop request size <don't change c-flag) 
i Restore system PAR mapping 



i 
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< 
< 

< 



l 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 001116 010246 

14 001120 013746 0000000 

15 001124 010046 

16 001126 001411 
17 

18 

19 

20 001130 013737 OOOOOOG 0000000 

21 

22 

23 

24 001136 

25 

26 

27 

28 001142 063702 

29 001146 105022 

30 001150 077002 
31 
32 
33 

34 001152 012600 

35 001154 012637 OOOOOOG 

36 001160 012602 

37 001162 000207 



. SBTTL FREMEM — Free a memory region 

FREMEM is called to free an area of memory. 

Inputs: 
R2 = Base 512-byte page # of start of region. 
RO = Number of 512-byte pages in region being freed. 

Outputs: 
FREPGS is increased by number of pages being freed. 
MEMMAP is altered to show that the pages are free. 



FREMEM: MOV 
MOV 
MOV 
BEQ 



R2,-<SP) 
@#KPAR5, -<SP> 
RO, -<SP) 
9* 



060037 OOOOOOG 



OOOOOOG 



1*: 



/Save system PAR 5 mapping 

; Br if no pages being freed 

Map PAR 5 to the memory allocation table 

MOV MAPPAR, @#KPAR5 i Map PAR 5 to the memory alloc table 

Indicate that we have more free memory 

ADD RO, FREPGS ; Increase # free pages 

Mark pages as free in MEMMAP 

; Point to entry for first page 
; Mark pages in region as free 



9*: 



ADD 


BASMAP, R2 


CLRB 


<R2) + 


SOB 


RO, 1* 


Finished 




MOV 


<SP)+, RO 


MOV 


<SP>+, @#KPAR5 


MOV 


( SP ) +, R2 


RETURN 





Restore system PAR 5 mapping 



i 
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. SBTTL TRYPLS — Determine # memory pages available for PLAS 

TRYPLS is called to determine the total number of user memory pages 
which could be used for a PLAS region. 

This routine is placed in Exec because uie must use PAR 5 to access 
the memory allocation table. 

Inputs: 
Rl = Current job index number. 

Outputs: 
RO = Number of 512-byte pages available for a PLAS region. 



001164 010246 

001166 013746 OOOOOOG 



001172 013737 OOOOOOG OOOOOOG 



001200 013702 OOOOOOG 

001204 005000 

001206 105722 

001210 002401 

001212 005200 

001214 020237 OOOOOOG 

001220 103772 

001222 166100 OOOOOOG 

001226 166100 OOOOOOG 

001232 012702 OOOOOOG 

001236 020201 

001240 001410 

001242 032762 OOOOOOC OOOOOOG 

001250 001404 

001252 166200 OOOOOOG 

001256 166200 OOOOOOG 

001262 162702 000002 

001266 001363 



001270 012637 OOOOOOG 
001274 012602 
001276 000207 



TRYPLS: MOV 
MOV 



R2, -<SP> 
@#KPAR5, -<SP> 



; Save system PAR 5 mapping 
Map PAR 5 to the memory allocation table 

MOV MAPPAR, S#KPAR5 ; Map PAR 5 to the memory alloc table 
Count number of pages available for a PLAS region 



15*: 



16* 



7*: 



8*: 



Point to base of memory map 

Count pages in RO 

Is this page available for user jobs? 

Br if not 

Count number of user pages 

Checked all pages? 

Br if not 

Subtract space already allocated to this job 

Including other plas regions 

Get index number of last job 

Is this our job? 

Don't count our job again 
#*MLOCK!*NLOCK, LSW6<R2> i Is this job locked in memory? 

i Br if not 
i If locked* we can't use its space 

i More jobs to check? 
; Br if yes 



; Restore system PAR 5 mapping 



MOV 


LOMAP, R2 


CLR 


RO 


>: TSTB 


(R2) + 


BLT 


16* 


INC 


RO 


CMP 


R2, HIMAP 


BLO 


15* 


SUB 


LNBLKS<R1),R0 


SUB 


LNSBLK<R1),R0 


MOV 


#LSTSL, R2 


CMP 


R2, Rl 


BEQ 


8* 


BIT 


#*MLOCK ! *NLOC 


BEQ 


8* 


SUB 


LNBLKS(R2>,R0 


SUB 


LNSBLK<R2),R0 


SUB 


#2, R2 


BNE 


7* 


Finished 




MOV 


(SP)+, @#KPAR5 


MOV 


(SP)+, R2 


RETURN 





1 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

21 001300 

22 001302 

23 001304 

24 001306 

25 001310 

26 001314 
27 

28 
29 

30 001316 

31 001324 

32 001330 
33 

34 
35 

36 001332 

37 001334 

38 001340 

39 001342 

40 001344 

41 001346 

42 001350 

43 001356 

44 001360 

45 001362 
46 

47 
48 
49 

50 001364 

51 001366 

52 001370 

53 001372 

54 001374 

55 001400 

56 001402 

57 001404 



010146 
010346 
010446 
010546 
013746 
010046 



013737 
013704 
005000 



010403 
163703 
003463 
114401 
001407 
002404 
032761 
001402 
077310 
000452 



011605 
010402 
005305 
001424 
020437 
101413 
114401 
001405 



. SBTTL TRYRGN 



Try to allocate memory for global region 



TRYRGN is called to attempt to locate a free memory area for 

a shared global (PLAS) region. The allocation is made in 

the highest available section of meory. 

If a free area of adequate size is found* it is claimed for the 

region. If it is necessary to swap jobs to free up a large 

enough area, the base of the area to be gotten is returned. 

Inputs: 
RO = Number of 512-byte pages needed for region. 

Outputs: 
C-flag cleared ==> Free area found and allocated for region. 

R2 = Base page # of region gotten. 
C-flag set ==> Could not find free area. 

R2 = ==> Impossible to collect that much free space. 

RO = Largest available area. 

R2 non-zero --> Swapping needed/ R2=base page # of region. 






000000G 



TRYRGN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R3, -<SP> 
R4, -<SP) 
R5, -<SP> 
@#KPAR5> -<SP> 
RO, -<SP) 



€ 



OOOOOOG 
OOOOOOG 



OOOOOOG 



; Save requested memory size on top of stack 

Set up pointers to memory map table 

MOV MAPPAR, @#KPAR5 i Map PAR 5 to memory allocation table 
MOV HIMAP, R4 J Pointer past last entry in memory map 
CLR RO i Save largest area found in RO 

Search for the start of a free region 



OOOOOOG 



8*: 



1*: 



OOOOOOG OOOOOOG 



6*: 



MOV 


R4, R3 


SUB 


LOMAP, R3 


BLE 


10* 


MOVB 


-<R4>, Rl 


BEG 


2* 


BLT 


6* 


BIT 


#*MLOCK, LSW6<R1) 


BEG 


2* 


SOB 


R3, 1* 


BR 


10* 



Get pointer above top of next area to check 

Get # pages left to check 

Br if we have checked all pages 

Is this page in use? 

Br if page is free 

Br if page not available to user jobs 

Page belong to job that's locked in memory? 

Br if not 

Continue searching for start of free area 

Br if no free area 



Found the start of an available area. 
Determine how large it is. 



2*: 



OOOOOOG 



4*: 



MOV 


<SP),R5 


MOV 


R4, R2 


DEC 


R5 


BEG 


5* 


CMP 


R4, LOMAP 


BLOS 


13* 


MOVB 


-<R4),R1 


BEG 


14* 



; Get requested number of pages 

; Save pointer to highest avail page in area 

i Do we only need 1 page? 

i Br if yes 

; Are we down to 1st page? 

i Br if yes 

; Is this page in use? 

; Br if not 



TSEXEC - 
TRYRGN - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 
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001406 
001410 
001416 
001420 
001422 
001424 
001426 



001430 
001432 
001434 
001436 
001440 
001442 



001444 
001446 
001450 
001452 
001456 
001460 
001462 
001464 



001466 
001470 
001472 
001476 
001502 
001504 
001506 



001510 
001512 



001514 
001516 
001522 
001524 
001526 
001530 
001532 



002411 
032761 
001005 
005305 
001410 
077315 
000401 



005202 
160402 
020200 
101735 
010200 
000733 



011605 
010500 
010402 
163702 
010403 
105723 
001013 
077503 



010403 
011605 
160537 
112723 
077503 
000241 
000402 



005002 
000261 



012605 
012637 
012605 
012604 
012603 
012601 
000207 



OOOOOOG OOOOOOG 



0000000 



OOOOOOG 
OOOOOOG 



OOOOOOG 



available to user jobs 

job that's locked in memory? 



BLT 3* i Br if page not 

SIT #*MLOCK. LSWAfRt >; Page belong to 

BNE 3* i Br if yes 

14*: DEC R5 > Does this satisfy the request? 

BEG. 5* »Br if yes 

SOB R3, 4* ; Loop if more 

BR 3* ;This area is 



pages need to be checked 
not large enough 



13*: 


INC 


R2 


3*: 


SUB 


R4, R2 




CMP 


R2, RO 




BLOS 


8* 




MOV 


R2, RO 




BR 


8* 



m area 
largest free area seen so far? 



5*: 



16*: 



This region is not large enough. 

Remember size of largest free region seen. 



iCalc # pages 

i Is th is the 

; Br if not 

;Remember size of largest free area 

; Continue searching 

We found an available area of adequate size. 

See if the area is completely free or if job swapping will be 

required to free it. 

Get # pages needed for region 

Return request size in RO 

Get pointer to lowest entry in free area 

Convert to page number 

Get pointer to 1st page in area 

Are all pages free now? 

Br if not — Swapping will be required 

Test all pages in region 



The 



17*: 



MOV 


<SP),R5 i 


MOV 


R5, RO i 


MOV 


R4, R2 > 


SUB 


BASMAP, R2 ; 


MOV 


R4, R3 ; 


TSTB 


<R3)+ ; 


BNE 


15* » 


SOB 


R5, 16* > 


rea is 


free. Claim it fc 


MOV 


R4, R3 i 


MOV 


<SP),R5 i 


SUB 


R5, FREPGS ; 


MOVB 


#MA*RGN, <R3)+ ; 


SOB 


R5, 17* > 


CLC 




BR 


12* 



Could not find a 
Return in RO the 



large enoug 
size of the 



10*: CLR 


R2 


15*: SEC 




> 

; Finished 




> 

12*: MOV 


<SP)+, R5 


MOV 


(SP)+, @#KPAR5 


MOV 


<SP)+>R5 


MOV 


<SP)+, R4 


MOV 


<SP>+, R3 


MOV 


<SP)+»R1 


RETURN 





r the region. 

Get pointer to base of area 

Get # pages in region 

Decrease total number of free pages 

Say area used for shared region 

Claim entire area 

Signal success on return 



h area. 
largest area found. 

; Say could not find an area 
i Signal failure on return 



; Pop request size (don't alter C-flag) 
j Restore PAR 5 mapping 



f 
I 
I 

i 
i 
< 
I 
I 
i 
i 
< 

4 
I 



1 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 001534 

17 001536 

18 001540 

19 001542 
20 

21 
22 

23 001544 

24 001552 
25 

26 
27 
28 
29 
30 
31 
32 
33 

34 001554 

35 001560 

36 001564 

37 001572 

38 001600 

39 001606 

40 001614 

41 001622 
42 

43 001630 

44 001634 

45 001640 
46 

47 
48 
49 
50 
51 
52 
53 

54 001642 

55 001644 

56 001650 

57 001656 



010246 
010346 
010446 
010546 



032761 
001433 



005037 
005037 
012737 
012737 
012737 
012737 
012737 
012737 

012704 
012705 
000411 



005004 
012705 
032761 
001402 



. SBTTL SETMAP 



Set up memory mapping registers for a job 



SETMAP is called to load the memory mapping registers for a job. 
The user mode registers are set to point to the user program space. 

Inputs 
Rl ~ Job index number. 

LNBLKS = # 256-word blocks assigned to job. 
LPARBS = Physical address <32-word block #) of job's virtual address 0. 

Outputs: 
Usei — mode PAR and PDR registers are loaded. 

Mapping information is stored in CUPAR and CUPDR cells in job's 
context block. 



SETMAP: MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP> 
R4, -<SP) 
R5, -<SP) 



000000G OOOOOOG 



See if we are setting up mapping for Kmon or a regular user job. 

BIT #*INKMN, LSW4<R1); Is Kmon running? 
BEG 7* ; Br if not 

Set up mapping registers for Kmon as follows: 
000000-037777 — > 000000-037777 (Map over TSGEN) 
040000-<top of Kmon) — > Job program space 
140000-157777 — > Job context area 
160000-177777 — > Simulated Monitor vector table 

Map virtual page O < 000000-01 7777) to physical TSGEN; allow write access. 



OOOOOOG 

OOOOOOG 

077406 

077406 

000200 

000200 

077406 

077406 

000004 
000016 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



@#UPARO > Map virtual page to physical page 

CUPARO > Save info in context block 

#77406* @#UPDRO ; 4kw window, allow read & write access 

#77406i CUPDRO > Save info in context block 

#200, @#UPAR1 i Map virtual page 1 to physical page 1 

#200, CUPAR 1 

#77406, @#UPDR1 

#77406, CUPDR 1 



; 4kw window, allow read & write access 



000016 

OOOOOOG OOOOOOG 



» Now enter code to map virtual pages starting with # 1 to job program area. 
MOV #4, R4 i Start mapping with page # 2 

MOV #14. ,R5 ;End mapping with page # 7 
BR 6$ 

i 

i We are mapping an ordinary user job. 

; Set up mapping as follows: 

i 000000-<top of program) — > Job program space 

> 160000-177777 — > Monitor vector table 
> 

> Set up user mode mapping registers. 
> 

7*: CLR R4 ; Start mapping with page # 

MOV #14. , R5 ; Assume we should map through page 7 

BIT #*IOMAP, LSW6<R1); Does job want page 7 mapped to I/O page? 

BEQ 6* j Br if not 



i 

€ 

€ 



€ 
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59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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001660 
001664 
001670 
001674 
001700 
001704 
001706 
001710 
001714 
001716 
001722 
001724 
001726 
001730 
001734 
001740 
001744 
001750 
001754 
001760 
001764 
001770 
001772 



001774 
001776 
002000 
002004 
002010 
002014 



002016 
002024 



002026 
002034 
002042 
002050 
002056 



002060 
002066 
002070 
002074 
002100 
002104 
002110 
002114 



012705 
016102 
163702 
072227 
016103 
010200 
001432 
020027 
101402 
012700 
160002 
005300 
000300 
052700 
042700 
010064 
010064 
010364 
010364 
062703 
062704 
020405 
003744 



020405 
101007 
005064 
005064 
062704 
000767 



032761 
001415 



012737 
012737 
012737 
012737 
000426 



032761 
001022 
013702 
162702 
072227 
066102 
010237 
010237 



000014 

OOOOOOG 

000164' 

000003 

OOOOOOG 



000200 
000200 



000006 

100261 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000200 

000002 



6*: 



2*: 



1*: 



jes, only set up map 

# 256-word blocks a 
iract # blocks used 

to # 32-word blocks 
base block # of job 

# 32-uiord blocks le 
.f finished 

of 128 blocks per p 
If ok 
. gn 128 32-word bloc 

# blocks left after 

# blocks - 1 

# blocks in left by 
jw read & write acce 

sure unused PDR bi 
PDR for page 

info in context bl 
PAR for page 

info in context bl 
mce page base block 
snce register pointe 
:k for last PAR regi 
lo next page 



Finished mapping all pages in user program space. 
Disallow access to other pages. 



MOV 


#12. , R5 


If y 


MOV 


LNBLK5(R1),R2 


Get 


SUB 


CXTPAG, R2 


Subt 


ASH 


#3, R2 


Cvt 


MOV 


LPARBS<R1>,R3 


Get 


MOV 


R2, RO 


Get 


BEQ 


8* 


Br i 


CMP 


RO, #128. 


Max 


BLOS 


1* 


Br i 


MOV 


#128. , RO 


Assi 


SUB 


RO, R2 


Get 


DEC 


RO 


Get 


SWAB 


RO 


Put 


BIS 


#6, RO 


Alio 


BIC 


#100261, RO 


Make 


MOV 


RO, UPDR0(R4) 


Set 


MOV 


RO, CUPDR0<R4) 


Save 


MOV 


R3, UPAR0<R4) 


Set 


MOV 


R3, CUPAR0<R4) 


Save 


ADD 


#128. , R3 


Adva 


ADD 


#2, R4 


Adva 


CMP 


R4, R5 


Chec 


BLE 


2* 


Go d 



ping through page 
ssigned to job 
by context area 

for job 

area 
ft to be assigned 

age 

ks to this page 
this page 

te 

ss to the page 

ts are zero 

oc k 

ock 

number 
r 
ster mapped 



8*: 



OOOOOOG 
OOOOOOG 
000002 



CMP R4, R5 

BHI 5* 

CLR UPDR0(R4> 

CLR CUPDR0<R4) 

ADD #2, R4 

BR 8$ 



; Have we done all pages? 

> Br if yes 

;Disallow all access to the page 

» Save info in context block 

i Move on to next page 



See if we should map user par7 to simulated Rmon or to I/O page. 



OOOOOOG OOOOOOG 5*: 



BIT #*IOMAP, LSW6(R1 )> Does job want to access I/O page? 
BEQ 11* ; Br if not 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
077406 OOOOOOG 
077406 OOOOOOG 



Map user par7 to I/O page. 

MOV # I OP AGE, e#UPAR7 

MOV #IOPAGE, CUPAR7 

MOV #77406, e#UPDR7 

MOV #77406, CUPDR7 

BR 4* 



Set address for PAR7 

Set info in context block 

Set read/write access and 



full page size 



Map user page 7 (160000-177777) to simulated monitor vector table. 



OOOOOOG OOOOOOG 11*: 

000170' 

OOOOOOG 

177772 

OOOOOOG 

OOOOOOG 

OOOOOOG 



BIT #*VIRJB,LSW9<R1> 

BNE 4* 

MOV CXTRMN, R2 

SUB #CXTBAS, R2 

ASH #-6. , R2 

ADD LCXPAR(R1),R2 

MOV R2, @#UPAR7 

MOV R2, CUPAR7 



Is this a virtual job? 

If yes then don't alter user's PAR 7 

Get virtual address of RMON in context blk 

Get offset to RMON within context block 

Convert offset to 64-byte units 

Add PAR base for context area 

Map user page 7 to table 

Save info in context block 



i 
t 

< 

f 

< 
( 
t 

< 

< 
< 

€ 

i 

< 
< 
< 
i 
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117 
118 
119 
120 
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- TSX-Plus Executive Mo MACRO V05. 04 Friday 22-Jan-88 14:44 Page 14-2 

- Set up memory mapping registers for a job 



< 

€ 



123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 



002120 
002126 



002134 
002142 
002144 
002150 
002154 
002160 
002166 



002174 
002176 
002202 
002204 
002210 
002214 
002222 
002230 
002234 
002240 



002242 
002246 
002254 
002256 



002264 
002266 
002270 
002272 
002274 



013737 
013737 



032761 
001414 
016100 
010037 
010037 
013737 
013737 



005002 
016200 
001412 
010062 
010062 
016262 
016262 
062702 
020227 
101756 



110137 
032761 
001403 
052761 



012605 
012604 
012603 
012602 
000207 



000200 ' 
000200 ' 



OOOOOOG 
OOOOOOG 



MOV RMNPDR, S#UPDR7 
MOV RMNPDR. CUPDR7 



Set up mapping control 
Save info in context block 



Map user page 6 to context block if KMON is running 



OOOOOOG OOOOOOG 4*: 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000166' OOOOOOG 
000166' OOOOOOG 



BIT 
BEG 
MOV 
MOV 
MOV 
MOV 
MOV 



#*INKMN, LSW4<R1>; Is Kmon running? 



10* 

LCXPAR<R1),R0 
RO, @#UPAR6 
RO, CUPAR6 
CXTPDR, @#UPDR6 
CXTPDR, CUPDR6 



; Br if not 

i Get PAR value to map context block 

> Map user page 6 to job context area 

; Save info in context block 

; Allow read and write access 



See if job has any associated shared run-time systems 



OOOOOOG 



10*: 
13*: 



OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000002 14*: 

000016 



CLR 
MOV 
BEQ 
MOV 
MOV 
MOV 
MOV 
ADD 
CMP 
BLOS 



R2 

RPDR<R2),R0 

14* 

RO, UPDR0<R2) 

RO, CUPDR0<R2) 



; Init table index for PARO 
# Do u»e need to load this PAR? 
; Br if not 

; Set PDR control flags 
i Save info in context block 
RPAR<R2>, UPAR0(R2); Set PAR value 
RPAR<R2), CUP AR0<R2)i Save info in context block 
#2, R2 ; Advance PAR table index 

R2, #2*7 i Have we done all 7 PAR's? 
13* > Br if more to load 



Set flag that says mapping information in job context block is valid 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



MOVB 
BIT 
BEQ 
BIS 

Finished 

9*: MOV 
MOV 
MOV 
MOV 
RETURN 



R1,MAPUSR i Say memory mapping set up for this job 
#*KINIT, L5W<R1 ) iHas Kmon finished initializing context block? 
9* ; Br if context block not initialized yet 

#*MAPOK, LSW7<R1 >; Mapping info in context block is valid 



(SP)+, R5 
<SP)+, R4 
<SP)+, R3 
<SP>+, R2 



€ 



TSEXEC — 
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7 
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9 
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14 
15 
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19 
20 
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28 
29 
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32 
33 
34 
35 
36 
37 
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002276 
002300 
002302 
002304 



002306 
002312 
002316 
002322 



002326 
002332 
002334 
002336 



002346 
002350 
002352 
002354 

002356 



. SBTTL LODMAP — Load memory mapping from context block 

LODMAP is called to load the user-mode memory management 
PAR and PDR registers from the mapping information in the job's 
context block. The context block information was set up by the 
last call to the SETMAP routine. 



010146 
010246 
010346 
010446 



012701 
012702 
012703 
012704 



012700 
012221 
012423 
077003 



LODMAP: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP > 
R2, -(SP) 
R3, -<SP> 
R4, -(SP) 



Set up pointers to the registers 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000010 



MOV #UPARO, Rl 

MOV #CUPARO, R2 

MOV #UPDRO, R3 

MOV #CUPDRO> R4 



i Point to hardware PAR register base 

; Point to PAR data cells in context block 

; Point to hardware PDR register base 

; Point to PDR data cells in context block 



Load the PAR and PDR registers 



1*: 



MOV #8. , RO 

MOV (R2)+, (Rl) + 

MOV <R4)+, <R3)+ 

SOB RO, 1* 



.Load 8 PAR and PDR registers 

; Load a user-mode PAR register 

> Load a user-mode PDR register 

; Loop if more to load 



002340 113737 OOOOOOG OOOOOOG 



Say memory mapping is set up for the current job 

MOVB CORUSR* MAPUSR > Say memory mapping set up for current job 



Finished 



012604 
012603 
012602 
012601 
000207 



MOV 
MOV 
MOV 
MOV 

RETURN 



<SP)+, R4 
<SP)+, R3 
<SP>+, R2 
<SP>+, Rl 







i 

< 
i 
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f 
I 
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< 
< 
4 
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< 

i 
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i 
( 

< 

i 



< 
i 

i 

'■ 

< 

i 

!« 
'« 

i 
1 4 

< 
< 



TSEXEC - 
MAPSYS - 

1 



- TSX-Plus Executive Mo MACRO V05. 04 

- Map to the system code regions 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 

23 002360 

24 002360 

25 002362 

26 002370 

27 002376 

28 002402 

29 002406 

30 002414 
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SBTTL MAPSYS — Map to the system code regions 



MAPSYS actually performs the mapping required to execute code in 
the mapped system regions. The mapped system code includes TSUSR* 
TSEMT, TSLOCK, and TSSPOL. The correct calling interface is 

CALL MAPSYS 

with R5 containing the ^segment number>*6 

The output of the subroutine actually changes the KPAR5 contents to 
get to the correct physical memory locations. 

This routine must preserve the C-bit because it will be called 
from the OCALL (intei — overlay call) handler. 



Overlay table structure: 



loc 64 — > 



*OVTAB: 

.WORD <IDENTIFIER>, <KPAR5>, <WORD COUNT> 
DUMMY SUBROUTINES FOR ALL OVERLAY SEGMENTS 



MAPSYS: 



011646 
013766 
052737 
010537 
063705 
016537 
000002 



OOOOOOG 
000340 
000032 ' 
OOOOOOG 
177772G 



000002 
OOOOOOG 



OOOOOOG 



MOV 
MOV 
BIS 
MOV 
ADD 
MOV 
RTI 



< SP ) , - ( SP ) 
@#PSW, 2<SP) 
#340, S#PSW 
R5, SYSMAP 
OVRADD, R5 



; reposition return address 
; save psw with current interrupt priority 
/disable interrupts 
i store the mapped region number 
;add the pointer to the overlay table 
0. PAR-6(R5>* e#KPAR5; enter the physical memory location 

> return with previous psw and priority 



i 



i 
i 
t 
i 

i 

< 



t 

\ 



i 
i 

< 

i 

i 

i 

i 
t 

€ 
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. SBTTL PKSTAT 



Pack user status into context block 



21 
22 
23 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 002416 

16 002420 
17 

IS 

19 

20 002424 
002430 
002436 
002440 

24 002442 

25 

26 

27 

28 002446 

29 002454 

30 002456 

31 002462 

32 002464 

33 002470 
34 

35 

36 

37 002474 

38 

39 

40 

41 002500 

42 002504 

43 002506 

44 002514 
45 

46 002516 

47 002520 

48 002522 

49 002524 

50 002526 

51 002530 

52 002532 

53 002534 

54 002536 

55 002540 

56 002542 

57 002544 



PKSTAT is called to pack all of the status information about the 

current user into the user's context block. 

After calling PKSTAT the user is ready to be outswapped. 

All registers are preserved. 

When called, we must be using the system stack. 

Inputs: 
R3 = Pointer to top of user stack in job context area. 

Outputs: 
R3 = Updated user stack pointer (after pushing job status). 



010146 
113701 



013743 
052737 
106506 
011643 
012637 



032761 
001007 
106537 
012643 
106537 
012661 



000000G 



OOOOOOG 
0000000 



PKSTAT: MOV 
MOVB 



R 1 , - < SP ) 
C0RUSR,R1 



Save PSW and user mode SP. 



OOOOOOG 



0000000 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



MOV 


@#PSW, -<R3> 


BIS 


#UPMODE, S#PSW 


MFPD 


SP 


MOV 


<SP),-<R3> 


MOV 


<SP>+, UMSPSV 



013743 OOOOOOG 



005737 
001424 
032737 
001420 

010246 
170202 
010243 
170011 
174043 
174143 
174243 
174343 
172404 
174043 
172405 
174043 



OOOOOOG 
OOOOOOG OOOOOOG 



Get job index number 



> Save PSW 

iMake sure previous-mode = user 

> Get user-mode SP 

i Push user SP 

i Save it in context block cell also 

Save some cells in program space 

BIT #*RD5AV, LSW1KR1); Are we reading in SAV file now? 

BNE 1* ; Br if yes — Don't save info from memory 

MFPD @#ERRLQC ; Save error cells 

MOV <SP)+, -<R3> 

MFPD @#JSWLOC ;Job status word 

MOV <SP)+, LJSW<R1> 

Save the current kernel PAR 5 region mapping 

1*: MOV @#KPAR5, ~(R3) i Save kernel par 5 mapping 

See if we need to save state of FPU 

; Is user using the FPU? 
; Br if not 
#CW*FPU, CONFIG ;Does system have an FPU? 

i Br if not 



Hold floating point status in R2 

Save floating point status register 

Set to 64-bit mode 

ACO 

AC1 

AC 2 

AC3 

AC4 — >ACO 

(AC4) 

AC 5 — >ACO 

<AC5) 



TST 


UFPTRP 


BEQ 


2* 


BIT 


#CW*FPU, 


BEQ 


2* 


content 


s of FPU 


MOV 


R2, -<SP) 


STFPS 


R2 


MOV 


R2, -<R3) 


SETD 




STD 


RO, -<R3) 


STD 


Rl, -<R3> 


STD 


R2, -<R3) 


STD 


R3, -<R3) 


LDD 


R4, RO 


STD 


RO, -<R3) 


LDD 


R5, RO 


STD 


RO, -<R3) 
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PKSTAT — Pack user status into context block 



58 002546 

59 002550 

60 002554 
61 


170102 
105037 
012602 


000013' 


LDFPS R2 
CLRB FPUUSF 
MOV < SP ) +, R2 


62 
63 

64 002556 

65 002560 


012601 
000207 




> Finished saving statu 

2*: MOV <SP>+, Rl 
RETURN 



; Leave FPU status same as on entry 
; FPU is no lonoer in use 






4 

4 
4 



TSEXEC - 
UPSTAT - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Unpack user status from context block 



. SBTTL UPSTAT — Unpack user status from context block 

UPSTAT is called to unpack the status information stored in the 
user's context area and get the user ready to run. 
When called* Rl must contain the user index #. 
All registers are preserved except RO. 

Inputs: 
Rl = Job index number. 
R3 = User context area stack pointer 

Outputs: 
R3 = User context area stack pointer after job status is popped. 



002562 010446 
002564 010546 
002566 052737 000000G OOOOOOG 



002574 005737 OOOOOOG 

002600 001420 

002602 032737 OOOOOOG OOOOOOG 



UPSTAT: MOV 
MOV 
BIS 



R4, -<SP> 
R5, -<SP> 
#UPMODE, @#PSW 



iMake sure previous-mode = user 
See if FPU unit needs to be restored 



002610 001414 



002612 
002616 
002620 172423 



110137 000013' 
170011 



TST UFPTRP i Is user using FPU? 

BEQ 3* ; Br if not 

BIT #CW*FPU, CONFIG > Does system have an FPU? 
BEQ 3* i Br if not 

Restore the FPU registers and status 



002622 
002624 



174005 
172423 



002626 174004 
002630 172723 



12 
002634 



172623 
172523 



002636 172423 
002640 170123 



002642 012337 OOOOOOG 



002646 032761 OOOOOOG OOOOOOG 

002654 001007 

002656 016146 OOOOOOG 

002662 106637 OOOOOOG 

002666 012346 

002670 106637 OOOOOOG 



002674 012346 

002676 106606 

002700 005037 OOOOOOG 

002704 012300 

002706 042700 147777 



MOVB 

SETD 

LDD 

STD 

LDD 

STD 

LDD 

LDD 

LDD 

LDD 

LDFPS 



R1,FPUUSE 

<R3>+, RO 
RO, R5 
<R3>+, RO 
RO, R4 
<R3>+, R3 
<R3)+, R2 
<R3)+,R1 
<R3>+,R0 
<R3) + 



Set flag saying FPU unit is in use by job 
Set 64-bit mode 
Get ACS 

iGet AC4 



AC 3 
AC 2 
AC1 
ACO 



Load FPU status register 

Restore the mapping for kernel PAR 5 

3*: MOV (R3>+, @#KPAR5 > Restore mapping for PAR 5 

Restore some cells in program space 

BIT #*RDSAV, LSWIKRDi Are we reading in SAV file now? 

BNE 1* »Br if yes — Don't alter memory image 

MOV LJSW(Rl), -<SP> iJob status word 

MTPD S#JSWLOC 

MOV <R3)+, -<SP> i Error cells 

MTPD @#ERRLOC 

Restore PSW mode and usei — mode SP. 

1*: MOV <R3>+, -<SP) ; User-mode SP 

MTPD SP 

CLR UMSPSV > Say user SP has been loaded 

MOV <R3>+, RO ;Get saved PS 

BIC #147777, RO j Clear all but previous-mode field 



4 

4 
f 
I 

I 

4 
4 
I 
4 

i 
< 

4 
4 

i 
4 
4 
4 
i 
i 



< 
t 

« 
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58 002712 042737 OO0OO0G OOOOOOG BIC #UPMODE, S#PSW ; Clear previous-mode field in PS 

59 002720 050037 0000000 BIS RO, @#PSW iPossiblu set orevious-mode field 
60 
61 
62 

63 002724 012605 

64 002726 012604 

65 002730 000207 



BIC 


#UPMODE> S#PSW 


BIS 


RO- @#PSW 


> Finished 




MOV 


<SP>+, R5 


MOV 


<SP)+, R4 


RETURN 





TSEXEC — 
DOCMPL — 

1 
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SBTTL DOCMPL — Call job's completion routines 



002740 
002746 



3 
4 
5 
6 
7 

e 

9 
10 
11 

12 002732 
13 
14 
15 

16 002732 

17 002736 
IS 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 002750 

32 002756 

33 002760 
34 

35 
36 
37 
38 
39 

40 002762 

41 002764 

42 002766 

43 002770 

44 002772 

45 002774 

46 002776 
47 

48 
49 
50 

51 003002 

52 003004 

53 003010 

54 003014 

55 003020 

56 003024 

57 003026 



016100 
001410 



0000000 



126037 
101404 



000000G OOOOOOG 



032761 
001401 
000207 



OOOOOOG OOOOOOG 



010046 
010146 
010246 
010346 
010446 
010546 
013746 



OOOOOOG 



010603 
012706 
113705 
004737 
110537 
010306 
005037 



001000 
000013' 
002416' 
000013' 

OOOOOOG 



DOCMPL is called from the job scheduler just before returning control 

to a job. On entry we are running on the user context-area stack. 

If there are pending completion routine requests for this job and we 

are not already executing in a completion routine* we call the completion 

routines. 

Inputs: 
Rl = Job index number 

DOCMPL: 

See if any completion routine is pending for this job. 



MOV LCMPL(R1),R0 
BEQ 12* 



; Is any completion request pending for job? 

> Br if not 



There is a pending completion routine for the job. 

Don't enter a completion routine if one of the same or higher class 

priority is already in execution for the job. 

However* allow a higher class completion routine to interrupt a 

lower class routine. 

CMPB CQ*CP(RO>, CURCP ; Is this request of higher priority? 
BLOS 12* ,Br if not 

We want to enter this completion routine. 

Don't enter any synch or completion routines if no-abort flag is set. 

BIT #*NOABT, LSW9<R1>; Was the no-abort flag set? 
BEQ 13* > Br if not 

12*: RETURN ; Don't do any completion routine processing 

There is a pending completion routine request and we are not currently 
executin a completion routine so we should call the pending routines. 

Save status of job on context-block stack. 

13*: MOV RO, -<SP> 

MOV R1,-<SP> 

MOV R2, -<SP) 

MOV R3, -<SP> 

MOV R4, -<SP) 

MOV R5, -<SP) 

MOV @#KPAR5, -<SP) 



; Save kernel PAR 5 mapping 

Switch to system stack so PKSTAT can push job status on context-block 
stack. 

Save current job-context-block stack pointer 

Switch to system stack 

Remember if job is using FPU 

Save job status on context-block stack 

Tell system if job is using FPU 

Switch back to context stack 

Say user SP is active- used for real-time int 



MOV 


SP,R3 


MOV 


#SS, SP 


MOVB 


FPUUSE, R5 


CALL 


PKSTAT 


MOVB 


R5, FPUUSE 


MOV 


R3, SP 


CLR 


UMSPSV 



< 

< 

< 

< 

i 
i 
i 
4 
( 
< 
« 

< 

i 
< 

4 
< 



TSEXEC — 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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003036 
003044 
003050 
003052 
003056 
003060 
003066 
003070 
003076 
003100 
003104 
003106 
003110 



003112 
003120 



003126 
003132 
003140 
003144 
003150 
003152 
003156 



003162 
003164 
003170 
003174 
003200 
003204 
003212 
003214 
003220 
003222 



Our status has hpprt saved 

Save current job execution priority on stack so me can restore it after 

calling all completion routines. 



003032 116146 000000G 



MOVB 



LPRKR1 ), -<SP) i Save job execution priority 



012700 
060100 
016005 
001540 
126537 
101534 
132765 
001005 
005761 
001402 
010500 
000760 



1 1 3746 
1 1 6537 
1 1 6500 
120061 
001404 
110061 
105237 



010103 
016504 
016546 
016546 
1 i 6502 
016537 
010501 
004737 
012601 
012600 



Process next completion request. 



1*: 
000000C 

000000G 17*: 

000000G OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 



DISABL ; ** Disable 

MOV #LCMPL-CG*LNK, RO;Get fake po 

ADD R1,R0 ; Point to li 

MOV CG*LNK<R0>,R5 > Get address 

BEG. 2* ; Br if no mo 

CMPB CQ*CP<R5),CURCP ;Is this req 

BLOS 2* i Br if not - 

BITB #QF*SCR,CQ*FLG<R5>; Is this a 

BNE 16* ;Br if syste 

TST LIOHLD(Rl) i Should we h 

BEG 16* i Br if not 

MOV R5/R0 ;Link to nex 

BR 17* ;Skip over u 



interrupts *# 

inter to compl Q head 

st head for our job 

of next compl Q element 
re elements left to process 
uest class higher than current 
- No more requests to process now 

system or user compl routine? 
m compl routine 
old user compl routines? 



t element 

ser compl requests in 



list 



Unlink completion queue request from list. 



016560 OOOOOOG OOOOOOG 16*: 



MOV CG*LNK<R5), CQ*LNK<RO)i Remove compl request from list 
ENABL >** Enable interrupts ** 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
000004 ' 



MOVB 


CURCP, -<SP> 


MOVB 


CG*CP<R5),CURCP 


MOVB 


CQ*PRI(R5>,R0 


CMPB 


RO, LPRKR1) 


BEQ 


7* 


MOVB 


RO, LPRKR1) 


INCB 


DOSCHD 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



Set job execution priority to that specified in completion queue element 

Save current completion rtn class priority 

Remember class priority of compl rtn 

Get execution priority for compl queue 

Do we need to change job priority? 

Br if not 

Set new execution priority 

Say a job scheduler cycle is needed 

Get some information out of the completion queue element and then 
free the queue element. 

7*: MOV R1,R3 ; Save job index number in R3 

MOV CG*RTN<R5)> R4 > Address of completion routine to be called 

MOV CQ*R0<R5), -<SP> .Save info on stack for now 

MOV CQ*RKR5), -<SP> 

MOVB CQ*FLG<R5),R2 ; Control flags 

MOV CQ*PA5(R5),@#KPAR5 > Set up mapping for PAR 5 

MOV R5>R1 ;Get address of queue element to Rl 

CALL GFREE ; Free the queue element 

MOV (SP)+, Rl ; Recover values to pass in RO & Rl 

MOV <SP>+, RO 

Determine if completion routine is a system routine that should 
be called in kernel mode or a user completion routine to be 
called in user mode. 



003224 032702 OOOOOOG 



BIT 



#GF*SCR> R2 



Is this a system or user completion routine? 



4 
4 

4 

4 
4 
4 

< 
i 

i 
i 

t 
i 

i 
4 
4 
I 

i 
< 

< 



i 
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003230 


001406 






116 










117 










1 118 










119 


003232 


032702 


OOOOOOC 




120 


003236 


001401 






< 121 


003240 


005011 






122 


003242 


004714 




15 


123 


003244 


000440 






| 124 










125 










126 










1 127 










128 










129 


003246 


032763 


OOOOOOG 


OOOOOOG 6* 


1 130 


003254 


001034 






1 131 










132 










f 133 










1 134 


003256 


052737 


0000006 


OOOOOOG 


135 


003264 


013702 


OOOOOOG 




- 136 


003270 


012742 


003346 ' 




1 137 


003274 


010237 


OOOOOOG 




138 


003300 


106506 






g 139 


003302 


012602 






1 140 


003304 


012746 


OOOOOOG 




141 


003310 


106642 






f 142 


003312 


010246 






* 143 


003314 


106606 






144 










t 145 










1 146 










147 










. 148 


003316 


012746 


OOOOOOC 




* 149 


003322 


032737 


OOOOOOG 


OOOOOOG 


150 


003330 


001402 






- 151 


003332 


052716 


000020 




* 152 


003336 


010446 




14 


153 


003340 


012705 


000024 




. 154 


003344 


000002 






* 155 










156 










g 157 










% 158 










159 










t 160 


003346 


113701 


OOOOOOG 


5* 


' 161 


003352 


1 1 2637 


OOOOOOG 




162 


003356 


000627 






. 163 










1 164 










165 










. 166 










' 167 


003360 






2* 


168 


003366 


112603 






g 169 


003370 


105737 


OOOOOOG 




* 170 


003374 


001025 






171 


003376 


116103 


OOOOOOG 
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BEG. 6* i Br if user completion routine 

We are calling a system completion routine in kernel mode 

BIT #QF*SYN!GF*IOT, R2 i Is this a .SYNCH or . TIMIO routine? 

BEQ 15* > Br if not 

CLR (Rl) i Clear cell in original call argument block 

6: CALL (R4) .Call system completion routine 

BR 5* ^Finished with completion routine 

We are calling a user completion routine. 

See if flag is set indicating that we are not to call any user 

completion routines. This is set during job exit/abort cleanup. 

BIT #*NOUCR, LSW9(R3) ; Should we ignore user-mode completion rtns? 
BNE 5* ; Br if yes 

Use special EMT to regain control at end of completion routine. 

;Make sure previous mode = user 

; Get pointer to top of return addr stack 

» Push our return address 

; Save updated stack pointer 

.Get user's stack pointer 

; Store address of exit EMT on user's stack 

j Restore updated user's stack pointer 

Now push fake PS & PC on stack so RTI will enter compl routine 
in user-mode. 

MOV #UMODE ! UPMODE, -(SP); User-mode PS 

BIT #D*DMON> D. FLAG i Is debugger doing data monitoring? 

BEG 14* i Br if not 

BIS #20, (SP) iSet trap flag in PSW 

&: MOV R4, -(SP) > Address of completion routine 

MOV #24, R5 ;Make R5 point to word with for FORTRAN subs 

RTI } Enter completion routine in user mode 

Return here from the completion routine (when user does EMT instruction). 

See if there are more completion routines to call. 

> Get back job index number 

; Restore compl routine class priority 

j Check for more pending completion requests 

There are no more pending completion requests. 
Reset job priority to base priority for job. 

i ## Enable interrupts ## 

; Get saved job execution priority 

j Are we still in a completion routine? 

i Br if yes 

; Get base priority for job 



BIS 


#UPMODE, e#psw 


MOV 


EMTCAD, R2 


MOV 


#5*, -(R2) 


MOV 


R2, EMTCAD 


MFPD 


SP 


MOV 


(SP)+, R2 


MOV 


#CPLEMT, -(SP) 


MTPD 


-(R2) 


MOV 


R2, -(SP) 


MTPD 


SP 



MOVB 


CORUSR, Rl 


MOVB 


(SP)+, CURCP 


BR 


1* 



ENABL 




MOVB 


(SP)+, R3 


TSTB 


CURCP 


BNE 


8* 


MOVB 


LBSPRKR1), R3 



I 
< 

I 

< 
< 

< 
i 
i 
i 
i 
i 
i 

4 
t 
i 

i 
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« 

4 
I 

I 
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003402 
003410 
003412 
003416 
003420 
003424 
003426 
003432 
003434 
003440 
003442 
003446 
003450 
003454 
003456 
003462 
003466 
003474 
003476 
003502 
003504 



003510 
003512 
003516 
003522 



003524 
003530 
003532 
003534 
003536 
003540 
003542 
003544 



032761 
001417 
120337 
103014 
120337 
101411 
1 1 3700 
160003 
120337 
003003 
113703 
005203 
120361 
001404 
110361 
105237 
026127 
101005 
120337 
103002 
004737 



010603 
012706 
004737 
010306 



012637 
012605 
012604 
012603 
012602 
012601 
012600 
000207 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



8*: 



OOOOOOG 
000004 ' 
OOOOOOG OOOOOOG 10* 

OOOOOOG 

005206 ' 



001000 
002562 



OOOOOOG 



3*: 



BIT 


#*VNOTT, LSW(Rl) 


BEQ 


8* 


CMPB 


R3, VPRIHI 


BHIS 


8* 


CMPB 


R3> VPRILO 


BLOS 


8$ 


MOVB 


VPRIVR, RO 


SUB 


RO, R3 


CMPB 


R3, VPRILO 


BGT 


8* 


MOVB 


VPRILO, R3 


INC 


R3 


CMPB 


R3, LPRKR1) 


BEQ 


10* 


MOVB 


R3, LPRKR1) 


INCB 


DOSCHD 


CMP 


LSTATE(R1),#S** 


BHI 


3* 


CMPB 


R3, VPRIHI 


BHIS 


3* 


CALL 


QHIPRI 


Unpack job s 


tatus. 


MOV 


SP,R3 


MOV 


#SS, SP 


CALL 


UPSTAT 


MOV 


R3, SP 


Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP>+, R3 


MOV 


<SP>+, R2 


MOV 


<SP)+,R1 


MOV 


<SP)+, RO 


RETURN 





Is this a disconnected virtual job? 

Br if not 

Does job have a fixed high priority? 

Br if yes 

Does job have a fixed low priority? 

Br if yes 

Get prio reduction for virtual jobs 

Reduce priority for detached virtual jobs 

But don't go into special low prio range 

Br if ok 

Force above fixed low priority 

•Are we changing the job's priority? 
; Br if not 

i Set new priority for job 
; Say a job scheduler cycle is needed 
IT ; Is job in a real-time state? 
; Br if not 

; Does job have a real-time priority? 
» Br if yes 
;Requeue job in normal high-prio state 



> Save user context-block stack pointer 

/Switch to system stack 

; Unpack job status 

;Switch back to context-block stack 



Restore mapping for kernel PAR 5 



« 
< 
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i 

< 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 003546 

14 003550 

15 003552 

16 003554 

17 003556 

18 003562 

19 003570 
20 

21 
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SBTTL SUTOP — Set top of memory for a job 



SUTOP is called to set the top of memory for the current job. 

If memory expansion is being requested and the required memory space 

is not available* the job is suspended and outswapped until memory 

becomes available. 

If a memory contraction is being done, the memory area being freed 

is returned to an unused state. 



Inputs: 
RO = Address above desired top of program. 



22 




23 


003574 


24 


003600 


25 


003604 


26 




27 




28 




29 


003610 


30 


003614 


31 


003616 


32 


003622 


33 


003624 


34 


003630 


35 


003632 


36 


003634 


37 


003636 


38 


003642 


39 




40 




41 




42 


003646 


43 


003652 


44 


003654 


45 




46 




47 




48 




49 


003656 


50 


003662 


51 


003666 


52 


003670 


53 


003674 


54 


003700 


55 


003704 


56 


003712 


57 


003714 



010046 
010146 
010446 
010546 
013746 
013737 
113701 



010037 
013705 
010065 



020027 
101403 
012700 
000407 
062700 
000241 
006000 
000300 
042700 
063700 



020061 
001501 
101026 



SUTOP: 



0000000 

0000000 000000G 
OOOOOOG 



OOOOOOG 
000170' 
OOOOOOG 



177000 
000200 
000777 



MOV 


RO, -<SP> 


MOV 


R1,-<SP> 


MOV 


R4, -<SP> 


MOV 


R5, -<SP> 


MOV 


@#KPAR5, -<SP) 


MOV 


MAPPAR, @#KPAR5 


MOVB 


CORUSR, Rl 



i Save system PAR 5 mapping 

; Map PAR 5 to memory allocation table 

i Get job index # 



Set highest legal address for job and set base of USR 



MOV RO, UHIMEM 
MOV CXTRMN, R5 
MOV RO, R*UBAS(R5> 



SET TOP OF MEMORY FOR JOB 

GET ADDRESS OF JOB'S SIMULATED MON VEC TABLE 

SAY BASE OF USR = TOP OF JOB 



7%: 



1 77400 
000164' 



OOOOOOG 



8$: 



Convert top-of-memory address to 512-byte page number. 

DOES JOB NEED 64KB? 

BR IF NOT 

128 PAGES = 64KB 

; BOUND UP TO PAGE BOUNDARY 
} CONVERT # BYTES TO # WORDS 

CONVERT TO # PAGES 

MASK OUT ALL BUT # PAGES 

ADD # PAGES NEEDED FOR CONTEXT BLOCK 

Compare new memory request with current memory allocation for this job. 



CMP 


RO, #177000 


BLOS 


7* 


MOV 


#128. , RO 


BR 


8* 


ADD 


#511. ,R0 


CLC 




ROR 


RO 


SWAB 


RO 


BIC 


# A C377, RO 


ADD 


CXTPAG, RO 



10*: CMP RO, LNBLKS(Rl) 
BEQ 3$ 
BHI 1* 



COMPARE NEW REQUEST WITH CURRENT ALLOCATION 

BR IF NO CHANGE IN SIZE 

BR IF EXPANDING MEMORY SIZE 



We are decreasing the size of the job. 

Free the memory pages above the new top of the job. 



016104 
016105 
060504 
063704 
010061 
010061 
066161 
160005 
060537 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



MOV 
MOV 
ADD 
ADD 
MOV 
MOV 
ADD 
SUB 
ADD 



i GET BASE PAGE # ASSIGNED TO THE JOB 
;GET # PAGES ASSIGNED TO JOB NOW 
; GET # OF PAGE ABOVE TOP OF JOB AREA 
; POINT TO ENTRY IN MEMMAP TABLE 
; SET NEW # PAGES ASSIGNED TO JOB 
iSET # BLOCKS NEEDED BY INSWAP 

LNSBLK<R1),LMEMIN<R1> i ADD MEMORY SPACE NEEDED FOR PLAS REGNS 

RO, R5 ; GET # PAGES BEING FREED 

R5, FREPGS ; KEEP TRACK OF # FREE PAGES 



LBASE(R1),R4 
LNBLKS<R1),R5 
R5, R4 
BASMAP, R4 
RO, LNBLKS(Rl) 
RO, LMEMIN(Rl) 



( 
< 



TSEXEC • 
SUTOP 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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003720 
003722 
003724 
003730 



003732 
003736 
003742 
003744 
003750 
003752 
003754 
003756 
003760 



003764 
003770 
003774 
004000 
004006 
004014 
004020 
004024 
004026 
004030 



004032 
004034 
004040 
004042 
004046 
004052 
004054 



105044 
077502 
105237 
000452 



016104 
016105 
060504 
063704 
160500 
010046 
105724 
001025 
077003 



012600 
016104 
066104 
060061 
016161 
066161 
063704 
160037 
110124 
077002 
000412 



012600 
066100 
010046 
066100 
004737 
012600 
000674 



2*: 



000004 ' 



CLRB 


-(R4> 


SOB 


R5, 2* 


INCB 


DOSCHD 


BR 


3* 



FREE A PAGE 

LOOP TO FREE MORE 

REQUEST A JOB SCHEDULER CYCLE 



We are increasing the size of the job. 
See if desired memory is available now. 



OOOOOOG 
OOOOOOG 

OOOOOOG 



1*: 



5*: 



MOV LBASE(R1),R4 

MOV LNBLKS<R1),R5 

ADD R5, R4 

ADD BASMAP, R4 

SUB R5, RO 

MOV RO, -(SP) 

TSTB (R4> + 

BNE 4* 

SOB RO, 5* 



GET BASE PAGE # ASSIGNED TO THIS JOB 

GET # PAGES CURRENTLY ASSIGNED TO THIS JOB 

GET # OF PAGE ABOVE TOP OF JOB AREA 

POINT INTO MEMMAP TABLE 

GET # PAGES TO BE ADDED 

IS THIS PAGE AVAILABLE? 

BR IF NOT 

CHECK ALL PAGES WE NEED 



The desired memory space is available. Claim it for our job. 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



6*: 



MOV ( SP ) +, RO 

MOV LBASE(Rl), 

ADD LNBLKS(Rl) 

ADD RO, LNBLKS< 

MOV LNBLKS<R1> 

ADD LNSBLK(Rl) 

ADD BASMAP, R4 

SUB RO, FREPGS 

MOVB Rl, (R4> + 

SOB RO, 6* 

BR 3* 



;GET # PAGES BEING ADDED 
R4 iGET BASE PAGE # ASSIGNED TO THIS JOB 
, R4 i GET # OF PAGE ABOVE CURRENT TOP OF JOB 
Rl) ; INCREASE # PAGES ASSIGNED TO THIS JOB 
, LMEMIN(R1)jSET UP LMEMIN FOR SWAPPER 
, LMEMIN<Rl)i ADD SPACE NEEDED FOR PLAS REGIONS 

i POINT INTO MEMMAP TABLE 

; KEEP TRACK OF # FREE PAGES 

; CLAIM PAGES FOR OUR JOB 



4$: 



OOOOOOG 

OOOOOOG 
004100' 



004056 004737 001534' 



004062 
004066 
004070 
004072 
004074 



012637 
012605 
012604 
012601 
012600 



OOOOOOG 



The memory space we need is not now available. 

Force the job to be suspended and outswapped. 

The subsequent inswap will do the memory expansion for us. 

GET # PAGES BEING ADDED 

GET NEW TOTAL # PAGES FOR JOB ROOT 

SAVE SIZE OF JOB ROOT 

ADD SPACE NEEDED FOR PLAS REGIONS 

DO JOB SWAP TO EXPAND MEMORY SPACE 

GET BACK # PAGES NEEDED BY JOB ROOT 

WE SHOULD NOW HAVE ALL NEEDED 

Memory allocation has been done. 

Load the memory management registers for the job. 

LOAD MEMORY MANAGEMENT REGISTERS FOR THE JOB 



; Restore system PAR 5 mapping 



MOV 


(SP)+, RO 


ADD 


LNBLKS(R1),R0 


MOV 


RO, -(SP) 


ADD 


LNSBLK(R1),R0 


CALL 


MEMXPN 


MOV 


(SP)+, RO 


BR 


10* 



3*: CALL 


SETMAP 


; Finished 




MOV 


(SP)+, @#KPAR5 


MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+,R1 


MOV 


<SP)+, RO 
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i 
1 



TSEXEC - 
MEMXPN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 
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004100 
004104 
004112 
004114 
004122 
004126 
004132 
004136 



010061 
032761 
001005 
052761 
005237 
012700 
004737 
004737 



. SBTTL MEMXPN 



Do job swap to expand memory size 



MEMXPN is called when we want to expand the size of a job 

but are unable to do so because we don't have free memory space 

above the top of the job. 

MEMXPN outswaps the job and then swaps the job back into the 

larger memory region. 

Inputs: 
Rl = Job index number. 
RO = Total number of 512-byte pages wanted for job after expansion. 






OOOOOOG 
OOOOOOG 

OOOOOOG 
000070 ' 
0000000 
004736 ' 
005122' 



OOOOOOG 
OOOOOOG 



004142 000207 



MEMXPN: MOV 
BIT 
BNE 
BIS 
INC 

1*: MOV 
CALL 
CALL 

Finished 

RETURN 



RO, LMEMIN(Rl) 

#*NDMEM, LSW<R1) 

1* 

#*NDMEM, LSW<R1> 

MEMSWP 

#S*WFM, RO 

QNSPNX 

CHKABT 



; Set job size needed 

; Is job already waiting for memory expansion? 

; Br if yes 

> Set memory-needed flag for the job 

;Tell swapper than memory-swap is needed 

;Put job in waiting-foi — memory state 

/Suspend and do the swap 

; Was job aborted while suspended? 






TSEXEC - 


— TSX-Plus Executive Mo 


CXBMOV - 


— Move 


job cont 


ext data 


1 
2 








3 








4 








5 








6 








7 








e 








9 








10 








11 








12 








13 


004144 


010346 




14 


004146 


010446 




15 


004150 


013746 


0000000 


16 








17 








IS 








19 


004154 


010537 


OOOOOOG 


20 








21 








22 








23 


004160 


062703 


OOOOOOG 


24 


004164 


013704 


000172' 


25 


004170 


006200 




26 








27 








28 








29 


004172 


006200 




30 


004174 


001403 




31 


004176 


012324 




32 


004200 


012324 




33 


004202 


077003 




34 


004204 


103001 




35 


004206 


011314 




36 








37 








38 








39 


004210 


012637 


OOOOOOG 


40 


004214 


012604 




41 


004216 


012603 




42 


004220 


000207 
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OO 



. SBTTL CXBMOV 



Move job context data into buffer 



This routine is called to move data from some area of physical memory 
into the job context block access buffer (CXTBUF). 

This routine is placed in the root because it uses PAR 5 to access 
the physical memory area. 

Inputs: 
R5 = Base 64-byte block number of start of data in physical memory. 
R3 = Offset within data area of item being accessed. 
RO = Number of bytes of data to move (512 maximum). 



CXBMOV: MOV 
MOV 
MOV 



R3, -<SP> 
R4, -<SP> 
@#KPAR5>-<SP> 



; Save PAR 5 mapping 
Map PAR 5 to area being accessed 

MOV R5, e#KPAR5 ; Map par 5 to context block 
Set up registers for the move 



ADD 
MOV 
ASR 

Move the data 



#VPAR5, R3 
CXTBUF, R4 
RO 



1*: 



2*: 



9*: 



ASR 


RO 


BEQ 


2$ 


MOV 


<R3)+, (R4) + 


MOV 


<R3)+, (R4) + 


SOB 


RO, 1* 


BCC 


9* 


MOV 


<R3>, <R4) 


Finished 




MOV 


<SP)+, e#KPAR5 


MOV 


<SP>+, R4 


MOV 


<SP)+, R3 


RETURN 





;Get mapped address of start of data 
; Point to buffer where data is to go 
» Get # words to move 



; Get number of double-words to move 

i Br if less than 2 words to move 

; Move a word 

i Move second word of pair 

i Loop till all moved 

; Br if don't need to move odd word at end 

; Move last word 



Restore par 5 mapping 






TSEXEC - 


— TSX-Plus Executive Mo 


ENQHD - 

1 
2 


— Put user at h 


ead of q 


3 
4 

5 
6 








7 








8 








9 


004222 


010246 




10 


004224 


010346 




11 


004226 


010446 




12 








13 








14 








15 








16 








17 


004230 


116104 


OOOOOOG 


18 


004234 


020027 


0000000 


19 


004240 


101013 




20 


004242 


120437 


0000000 


21 


004246 


103403 




22 


004250 


012700 


OOOOOOG 


23 


004254 


000405 




24 


004256 


120437 


OOOOOOG 


25 


004262 


101002 




26 


004264 


012700 


OOOOOOG 


27 








28 








29 








30 


004270 


004737 


004534 ' 


31 








32 








33 








34 


004274 


113702 


000000 ' 


35 


004300 


001432 




36 


004302 


020062 


OOOOOOG 


37 


004306 


101004 




38 


004310 


103412 




39 


004312 


120462 


OOOOOOG 


40 


004316 


103007 




41 


004320 


010203 




42 


004322 


116302 


OOOOOOG 


43 


004326 


001365 




44 








45 








46 








47 


004330 


110137 


000001 ' 


48 


004334 


000404 




49 








50 








51 








52 


004336 


116203 


00000 1G 


53 


004342 


110162 


00000 1G 


54 


004346 


110261 


OOOOOOG 


55 


004352 


110361 


00000 1G 


56 


004356 


001405 




57 


004360 


110163 


OOOOOOG 
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. SBTTL ENQHD — Put uzeT at head of queue 

ENQHD is called to place a user in the run queue at the front 

of the list of users of equal or lower priority. 

When called* Rl must contain the user index number and 

RO must contain the execution state (S* ). 

All registers are preserved. 



4 

4 

4 



ENQHD: 



MOV 


R2, 


-(SP) 


MOV 


R3, 


-(SP) 


MOV 


R4, 


-(SP) 



4*: 



If job is being placed in an executable state and the priority 

of the job is one of the fixed priorities (very low or very high)* 

then force job to be placed in the S*LOW or S*RT queue. 

» Get current priority for job 

» Is job being placed in an executable state? 

; Br if not 

; Does job have a real-time priority? 

; Br if not 

; Force real-time jobs into S*RT state 

i Is this a low-priority job? 

j Br if not 

; Force into low-priority queue 



MOVB 


LPRI(Rl), R4 


CMP 


RO, #S**RUN 


BHI 


3* 


CMPB 


R4, VPRIHI 


BLO 


4* 


MOV 


#S*RT, RO 


BR 


3* 


CMPB 


R4, VPRILO 


BHI 


3* 


MOV 


#S*LOW, RO 



Remove user from queue he is in currently. 
3$: CALL DEQ ; REMOVE FROM QUEUE ** DISABLE ** 

Search down queue looking for right place to insert user. 



1*: 



2*: 



MOVB 


RUNQHD, R2 


BEQ 


ADQ1 


CMP 


RO, LSTATE(R2) 


BHI 


2* 


BLO 


ADQMID 


CMPB 


R4, LPRKR2) 


BHIS 


ADQMID 


MOV 


R2, R3 


MOVB 


LQLINK(R3),R2 


BNE 


1* 



Add user to tail of queue 



ADQTL: 



MOVB 
BR 



R1,RUNQTL 
ADQT 



POINT TO FIRST USER IN QUEUE 
BR IF QUEUE IS EMPTY 

COMPARE EXECUTION STATE PRIO WITH NEXT JOB 
BR IF OUR EXECUTION STATE IS LOWER PRIO 
BR IF OUR EXECUTION STATE IS HIGHER PRIO 
EQUAL EXECUTION STATES, COMPARE PRIORITIES 
BR IF PRIO IS EQUAL TO OR HIGHER THAN NEXT 
CHAIN ON TO NEXT USER IN LIST 

,BR IF MORE USERS IN QUEUE 



; SAY WE ARE LAST USER IN LIST 



Link in front of user whose index # is in R2 



ADQMID: MOVB 
MOVB 

ADQT: MOVB 
MOVB 
BEQ 
MOVB 



LQLINK+1(R2),R3 
R1,LQLINK+1(R2) 
R2, LQLINK(Rl) 
R3, LQLINK+KR1) 
ADQHD 
R1,LQLINK(R3) 



GET INDEX OF EARLIER USER 

SAY WE ARE PREDECESSOR TO R2 USER 

SAY R2 USER FOLLOWS US 

SAY R3 USER IS OUR PREDECESSOR 

BR IF WE ARE AT HEAD OF LIST 

SAY WE FOLLOW R3 USER 



< 

4 

< 
€ 
€ 
4 

< 
i 
4 
4 
< 
< 
( 
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58 004364 

59 

60 

61 

62 004366 

63 004372 

64 004376 
65 

66 
67 

68 004402 

69 004406 

70 004414 

71 004416 

72 004420 

73 004422 



000404 



110137 000001' 
110137 000000' 
010061 OOOOOOG 



105237 000004 

012604 
012603 
012602 
000207 



BR ADQXIT 
Set us as only entry in queue 



ADQ1: MOVB 
ADQHD: MOVB 
ADQXIT: MOV 



R1,RUNQTL iMAKE QUEUE TAIL POINT TO US 
R1,RUNQHD iMAKE QUEUE HEAD POINT TO US 
RO, LSTATE<R1) i SET OUR EXECUTION STATE 



Finished. Request a job scheduler cycle. 



INCB DOSCHD 

ENABL 

MOV < SP ) +, R4 

MOV <SP>+, R3 

MOV (SP>+, R2 

RETURN 



i REQUEST A JOB SCHEDULER CYCLE 
> #* ENABLE ** 



TSEXEC - 


— TSX-Plus Executive Mo 


ENQTL - 


— Add user to t 


ail of e 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 


004424 


010246 




11 


004426 


010346 




12 


004430 


010446 




13 








14 








15 








16 








17 








18 


004432 


116104 


0000000 


19 


004436 


020027 


0000000 


20 


004442 


101013 




21 


004444 


120437 


0000000 


22 


004450 


103403 




23 


004452 


012700 


OOOOOOG 


24 


004456 


000405 




25 


004460 


120437 


OOOOOOG 


26 


004464 


101002 




27 


004466 


012700 


OOOOOOG 


28 








29 








30 








31 


004472 


004737 


004534 ' 


32 








33 








34 








35 


004476 


113702 


000000 ' 


36 


004502 


001731 




37 


004504 


020062 


OOOOOOG 


38 


004510 


101004 




39 


004512 


103711 




40 


004514 


120462 


OOOOOOG 


41 


004520 


101306 




42 


004522 


010203 




43 


004524 


1 1 6302 


OOOOOOG 


44 


004530 


001365 




45 


004532 


000676 
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. SBTTL ENQTL 



Add user to tail of execution queue 



ENQTL is called when it is desired to add the user whose 

index number is in Rl to the end of the list of users with 

the execution state whose code is in RO. If there are no other 

users with this state in the queue* the user is linked in 

in front of any lower priority users. 

All registers are preserved. 



ENQTL: 



MOV 
MOV 
MOV 



R2, -<SP> 
R3, -<SP> 
R4, -<SP> 



4*: 



If job is being placed in an executable state and the priority 

of the job is one of the fixed priorities (very low or very high). 

then force job to be placed in the S*LOW or S*RT queue. 

> Get current priority for job 

; Is job being placed in an executable state? 

> Br if not 

i Does job have a real-time priority? 

j Br if not 

i Force real-time jobs into S*RT state 

; Is this a low-priority job? 

» Br if not 

;Force into low-priority queue 



MOVB 


LPRI<R1>,R4 


CMP 


RO, #S**RUN 


BHI 


3* 


CMPB 


R4, VPRIHI 


BLO 


4* 


MOV 


#S*RT, RO 


BR 


3* 


CMPB 


R4, VPRILO 


BHI 


3* 


MOV 


#S*LOW, RO 



Remove user from queue. 
3*: CALL DEQ 



; REMOVE FROM QUEUE *# DISABLE ** 



Search for right place to insert user. 



1*: 



2*: 



MOVB 


RUNQHD, R2 


BEQ 


ADQ1 


CMP 


RO, LSTATE<R2) 


BHI 


2* 


BLO 


ADQMID 


CMPB 


R4, LPRKR2) 


BHI 


ADQMID 


MOV 


R2, R3 


MOVB 


LQLINK<R3),R2 


BNE 


1$ 


BR 


ADQTL 



POINT TO 1ST USER IN QUEUE 

BR IF QUEUE IS EMPTY 

COMPARE EXECUTION STATES 

BR IF OUR EXECUTION STATE PR 10 IS LOWER 

BR IF OUR EXECUTION STATE PRIO IS HIGHER 

EQUAL EXECUTION STATES, COMPARE PRIORITIES 

BR IF OUR PRIORITY IS HIGHER 

CHAIN FORWARD TO NEXT USER IN LIST 

;BR IF MORE USERS IN LIST 
j ADD US TO TAIL OF LIST 



TSEXEC - 


-- TSX-P 


lus Executive Mo 


DEQ 

1 
2 
3 
4 


— Remove user f 


rom run 


5 
6 
7 
8 
9 
10 


004534 


010246 




11 


004536 


010346 




12 


004540 






13 


004546 


005761 


OOOOOOG 


14 


004552 


001010 




15 


004554 


120137 


000000 ' 


16 


004560 


001030 




17 








18 


004562 


105037 


000000 ' 


19 


004566 


105037 


000001 ' 


20 
21 
22 


004572 


000423 




004574 


116103 


0000010 


23 


004600 


116102 


0000000 


24 


004604 


001003 




25 


004606 


110337 


000001 ' 


26 


004612 


000402 




27 


004614 


110362 


0000010 


28 


004620 


005703 




29 


004622 


001003 




30 


004624 


110237 


000000 ' 


31 


004630 


000402 




32 


004632 


110263 


OOOOOOG 


33 








34 








35 


004636 


005061 


OOOOOOG 


36 


004642 


005061 


OOOOOOG 


37 


004646 


012603 




38 


004650 


012602 




39 


004652 


000207 





queue 
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SBTTL DEQ 



Remove user from run queue 



DEQ is called to remove from the run queue the user whose 

index number is in Rl. 

On return* the user will be left unlinked from the run queue 

and his state code (LSTATE) will be zeroed. 

#* The interrupts are left disabled on return ## 

All registers are preserved. 



DEQ: MOV 

MOV 

DISABL 

TST 

BNE 

CMPB 

BNE 
; User is only 

CLRB 

CLRB 

BR 
i Unlink from 
1*: MOVB 

MOVB 

BNE 

MOVB 

BR 
4*: MOVB 
5*: TST 

BNE 

MOVB 

BR 
6*: MOVB 
* Finished unl 
i Say user is 
3*: CLR 
2*: CLR 

MOV 

MOV 

RETURN 



R2, -<SP> 
R3, -(SP) 

LQLINK(Rl) 

1* 

Rl, RUNQHD 

2* 

entry in queue 

RUNQHD 

RUNQTL 

2$ 
queue 

LQLINK+1(R1),R3 

LQLINK(R1),R2 

4* 

R3, RUNQTL 

5* 

R3, LQLINK+KR2) 

R3 

6$ 

R2, RUNQHD 

3* 

R2, LQLINK(R3) 
ink ing. 
not in any queue 

LQLINK(Rl) 

LSTATE (Rl) 

(SP)+, R3 

(SP)+, R2 



*# DISABLE *# 

IS USER UNLINKED NOW? 

BR IF NOT 

IS USER ONLY ENTRY IN QUEUE? 

BR IF NOT -- MUST NOT BE IN QUEUE AT ALL 

} REMOVE FROM QUEUE 



GET # OF USER IN FRONT OF US IN QUEUE 
GET # OF USER WHO FOLLOWS US IN QUEUE 
BR IF NOT AT TAIL OF QUEUE 
MAKE TAIL POINT TO OUR PREDECESSOR 

MAKE OUR SUCCESSOR POINT BACK OVER US 

ARE WE AT HEAD OF QUEUE? 

BR IF NOT AT HEAD OF QUEUE 

MAKE QUEUE HEAD POINT TO OUR SUCESSOR 

MAKE OUR PREDECESSOR POINT TO OUR SUCESSOR 



i CLEAR BOTH OUR FORWARD & BACKWARD LINKS 
; SAY WE HAVE NO EXECUTION STATE 



TSEXEC - 


— TSX-F 


'lus Executive Mo 


QSRCH - 


— Look 


for 1st 


user wit 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


004654 






16 


004662 


113701 


000000 ' 


17 


004666 


001406 




18 


004670 


020061 


000000G 


19 


004674 


001410 




20 


004676 


116101 


OOOOOOG 


21 


004702 


001372 




22 








23 


004704 






24 


004712 


000261 




25 


004714 


000207 




26 








27 








28 


004716 


000241 




29 


004720 


000207 
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some execution state 

. SBTTL QSRCH — Look for 1st user with some execution state 

QSRCH is called to locate the highest priority user in a 
certain execution state. 

When called, RO must contain the execution state code (S* ). 

If a user is found with the state code* the user index number 

is returned in Rl and the C-flag is cleared. 

If no user is found with the specified state, the C-flag is 

set on return. 

*# Interrupts are disabled and left disabled if a 

with the specified state. If no user is found* 

are reenabled before returning. ** 
All registers are preserved except Rl. 



user is found 
the interrupts 



QSRCH: 



3*: 



DISABL 
MOVB 

CMP 
BEQ 
MOVB 
BNE 
user has 
ENABL 
SEC 
RETURN 

> Found a user in the desired state 

> Leave the interrupts disabled on return 

2*: CLC , INDICATE SUCCESS 

RETURN 



No 



RUNQHD, Rl 
1* 

ROi LSTATE(Rl) 
2* 

LQLINK<R1) 
3* 
the desired 



Rl 



state 



1*: 



** DISABLE ** 

GET # OF 1ST USER IN QUEUE 

BR IF QUEUE IS EMPTY 

IS THIS USER IN STATE OF INTEREST? 

BR IF YES — SUCCESS 

CHAIN FORWARD 

BR IF MORE TO CHECK 



** ENABLE ** 
SIGNAL FAILURE 






TSEXEC - 


-- TSX-Plus Executive Mo 


QNSPND - 


— Put J 


ob in wait state 


i 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 








20 








21 








22 








23 








24 








25 








26 








27 








28 








29 








30 


004722 


010146 




31 


004724 


004737 


005014' 


32 


004730 


004737 


004424 ' 


33 


004734 


000421 




34 








35 








36 








37 


004736 


010146 




38 


004740 


004737 


005014' 


39 


004744 


004737 


004424 ' 


40 


004750 


000415 




41 








42 








43 








44 


004752 


010146 




45 


004754 


004737 


005014' 


46 


004760 


004737 


004222 ' 


47 


004764 


000407 




48 








49 








50 








51 


004766 


010146 




52 


004770 


004737 


005014' 


53 


004774 


004737 


004222 ' 


54 


005000 


005061 


000000G 


55 


005004 


012601 




56 


005006 


004737 


000210' 


57 


005012 


000207 





Friday 22-Jan-88 14:44 Page 27 



SBTTL QNSPND — Put job in wait state 



There are four routines tha 
execution of a job: QNSPND* 
All four routines perform t 
job state to a specified wa 
job scheduler to run some o 
Before placing the job in t 
check to see if there is a 
If there is a pending compl 
to the state associated wit 
completion routine to run b 
The difference between the 
queued at the head or tail 
job's time-slice quantum is 



t can be called to suspend the 

QNSPNX, QHDSPN, QHDSPX. 
he functions of changing the 
it state and then calling the 
ther job while the current job 
he specified wait state, these 
pending completion routine for 
etion routine< the job state is changed 
h the completion routine to allow the 
efore the job is suspended, 
four routines is whether the job is 
of the wait queue and whether the 

reset. 



is waiting, 
routines 
the job. 



QNSPND — Queue at tail of wait list, 

QNSPNX — Queue at tail of wait list, 

QHDSPN — Queue at head of wait list, 

QHDSPX — Queue at head of wait list, 



reset quantum, 
don't reset quantum, 
reset quantum, 
don't reset quantum. 



Inputs: 
RO = Job state to which job is to be set before calling scheduler. 

Outputs: 
Interrupts are enabled. 

Queue at tail of wait list, reset quantum. 



QNSPND: MOV 
CALL 
CALL 
BR 



R 1 , - < SP ) 
QCKCPL 
ENQTL 
DOSPNR 



DO COMMON ENTRY SETUP ** DISABLE ** 
PUT JOB IN WAIT QUEUE ** ENABLE ** 
RESET QUANTUM AND SUSPEND JOB 



Queue at tail of wait list, don't reset quantum. 



QNSPNX: MOV 
CALL 
CALL 
BR 



R 1 , - < SP ) 
QCKCPL 
ENQTL 
DOSPNX 



DO COMMON ENTRY SETUP ** DISABLE ** 
PUT JOB IN WAIT QUEUE ** ENABLE *# 
GO SUSPEND JOB 



Queue at head of wait list, don't reset quantum. 
QHDSPX: 



MOV 


R1,-<SP> 


CALL 


QCKCPL 


CALL 


ENQHD 


BR 


DOSPNX 



DO COMMON ENTRY SETUP #* DISABLE ** 
PUT JOB IN WAIT QUEUE ** ENABLE *# 
GO SUSPEND JOB 



Queue at head of wait list, reset quantum. 



QHDSPN: MOV 
CALL 
CALL 
DOSPNR: CLR 
DOSPNX: MOV 
CALL 
RETURN 



Rl, -(SP) 

QCKCPL 

ENQHD 

LQUAN<R1) 

<SP)+, Rl 

SCHED 



DO COMMON ENTRY SETUP ** DISABLE *# 
PUT JOB IN WAIT QUEUE #* ENABLE ** 
RESET JOB TIME-SLICE QUANTUM 

;CALL JOB SCHEDULER TO RUN ANOTHER JOB 
; RESUME EXECUTION OF OUR JOB 



TSEXEC - 


— TSX-P 


lus Executive Mo 


QNSPND - 


— Put J 


ob in wait state 


58 








59 








60 








61 








62 








63 








64 








65 








66 








67 








68 








69 








70 








71 








72 








73 








74 








75 








76 


005014 


010246 




77 


005016 


113701 


000000G 


78 


005022 






79 








80 








81 








82 


005030 


016102 


0000000 


83 


005034 


001413 




84 


005036 


005761 


OOOOOOG 


85 


005042 


001010 




86 


005044 


105737 


OOOOOOG 


87 


005050 


001005 




88 


005052 


120062 


OOOOOOG 


89 


005056 


101402 




90 


005060 


116200 


OOOOOOG 


91 








92 








93 








94 


005064 


012602 




95 


005066 


000207 
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QCKCPL is a local subroutine called by the queue-and-suspend 
routines to perform common setup functions. 
The following operations are performed. 

1) Interrupts are disabled. 

2) The current job number is loaded into Rl. 

3) If there is a pending completion routine* the priority request 
for the job is changed to the priority of the completion routine. 

Inputs: 
RO = Requested wait state for job to be placed in. 



Outputs: 
RO = Job state that job is actually to be put in. 
Rl = Current job index number. 
Interrupts are left disabled. 



QCKCPL: MOV R2, -<SP) 
MOVB C0RUSR,R1 
DISABL 



» Get current job index number 
i ** Disable ** 



Check for pending completion routines 



9*: 



MOV 


LCMPL(Rl), R2 


BEG 


9* 


TST 


LIOHLD(Rl) 


BNE 


9* 


TSTB 


CURCP 


BNE 


9* 


CMPB 


RO, CQ*RNS<R2> 


BLOS 


9* 


MOVB 


CQ*RNS(R2),R0 


Finished 




MOV 


<SP)+, R2 


RETURN 





; Are there any pending completion rtns? 

; Br if not 

; Are we holding completion routines? 

> Br if yes 

; Are uie in a completion routine now? 

; Br if yes 

; Does compl routine have higher priority? 

i Br if not 

/Change to prio as specified by compl routine 



i 
t 

i 

i 
t 
« 
i 

< 

< 

€ 

< 
i 
i 
1 
( 
I 
< 

i 
i 



TSEXEC 
QNSPND - 

1 



- TSX-Plus Executive Mo 
Put job in wait state 



3 
4 
5 
6 
7 
8 
9 

10 005070 

11 005072 

12 005100 
13 

14 

15 

16 

17 005102 

IS 005106 

19 005112 

20 005116 

21 005120 
22 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33 005122 

34 005124 

35 005130 

36 005136 

37 005140 

38 005144 

39 005146 

40 005154 

41 005156 

42 005162 

43 005164 



010046 
026127 
103404 



012700 
004737 
105237 
012600 
000207 



010146 
113701 
032761 
001411 
120137 
001406 
032761 
001002 
004737 
012601 
000207 
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SBTTL FORCEX — Force user execution 



FORCEX is called to force execution of the user whose line 

index number is in Rl. 

The user is taken out of any wait state and placed in 

a high priority execution queue. 

All registers are preserved. 



FORCEX: MOV 
OOOOOOG OOOOOOG CMP 

BLO 



RO, -<SP> 

LSTATE(R1),#S$*HIP ; IS USER RUNNING NOW? 

1* ;BR IF YES — CAN'T BEAT THAT 



User is not running now. 

Put user in high priority run state 



OOOOOOG 
004424 ' 
000004 ' 



1*: 



MOV 


#S*IOFN, RO 


CALL 


ENQTL 


INCB 


DOSCHD 


MOV 


<SP>+, RO 


RETURN 





SBTTL CHKABT 



GET HIGH-PRIORITY STATE CODE 
PUT USER AT TAIL OF QUEUE 
REQUEST A JOB SCHEDULER CYCLE 



Check for abort condition 



CHKABT IS CALLED TO SEE IF AN ABORT CONDITION 
SUCH AS DOUBLE CTRL-C OR LINE DISCONNECT HAS 
OCCURED. IF AN ABORT CONDITION IS PENDING 
THE USER IS ABORTED BY JUMPING DIRECTLY TO 
STOP. IF NO ABORT CONDITION IS PENDING 
CHKABT RETURNS TO THE CALLING ROUTINE. 
ALL REGISTERS ARE PRESERVED. 



CHKABT: 



OOOOOOG 
OOOOOOC 

000002 ' 



OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 



2*: 
1*. 



MOV 

MOVB 

BIT 

BEQ 

CMPB 

BEQ 

BIT 

BNE 

CALL 

MOV 

RETURN 



Rl, -<SP> 

C0RUSR,R1 

#<i 

1$ 

Rl.USRJOB 

1* 

#*NOABT> LSW9<R1> 

1* 

STOP 

(SP)+, Rl 



GET USER INDEX NUMBER 

LSW(Rl); ABORT PENDING? 

BRANCH IF NOT 

ARE WE CURRENTLY DOING A DIRECTORY OPERATION? 

IF YES DON'T ABORT NOW 

Is the No-abort flag set for job? 

Br if yes — Don't abort now 

ABORT THE USER 



I 

4 
4 
< 
I 
4 
4 

4 

l 
i 

< 
i 

t 

4 
< 

i 
< 

4 

4 



TSEXEC 
UREGO 



TSX-Plus Executive Mo MACRO V05. 04 
Restart user at head of wait queue 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
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SBTTL UREGO — Restart user at head of wait queue 



UREGO is called to restart the user who 

is at the head of the wait queue whose state code 

This user is removed from the wait queue and 

added to the tail of the S*I0FN queue. 

All registers are preserved. 

Interrupts are enabled on return. 



is in RO. 



005166 
005170 
005174 
005176 
005202 
005204 



010146 
004737 
103402 
004737 
012601 
000207 



004654 



005206 ' 



UREGO: 



1*: 



MOV 

CALL 

BCS 

CALL 

MOV 

RETURN 



Rl, -<SP) 

QSRCH 

1* 

QHIPRI 

<SP)+,R1 



;FIND USER AT HEAD OF QUEUE * DISABLE * 
>BR IF CAN'T FIND ANY USERS IN THAT STATE 
> REQUEUE USER AT TAIL OF S*IOFN QUEUE 



< 
4 

4 
4 
I 

< 

« 

i 
4 

< 

< 
4 
4 

4 

i 
i 
< 
i 

i 



€ 
< 



TSEXEC - 


— TSX-P 


lus Executive Mo 


QHIPRI - 

1 

3 
4 
5 
6 
7 

e 


— Put user in h 


igh prio 


005206 


010046 




9 
10 








11 








12 


005210 


005761 


OOOOOOG 


13 


005214 


001426 




14 


005216 


005761 


OOOOOOG 


15 


005222 


001407 




16 


005224 


005361 


OOOOOOG 


17 


005230 


012700 


OOOOOOG 


18 


005234 


004737 


004424 ' 


19 


005240 


000433 




20 








21 








22 








23 








24 


005242 


005061 


OOOOOOG 


25 


005246 


004037 


010040' 


26 


005252 


0000000 




27 


005254 


013700 


OOOOOOG 


28 


005260 


163700 


OOOOOOG 


29 


005264 


003410 




30 


005266 


010061 


OOOOOOG 


31 








32 








33 








34 








35 


005272 


005761 


OOOOOOG 


36 


005276 


001006 




37 


005300 


004037 


010040' 


38 


005304 


OOOOOOG 




39 


005306 


004737 


005334 ' 


40 


005312 


000406 




41 


005314 


005361 


OOOOOOG 


42 


005320 


012700 


OOOOOOG 


43 


005324 


004737 


004424 ' 


44 


005330 


012600 




45 


005332 


000207 





SBTTL QHIPRI 



Put user in high priority queue 



QHIPRI is called to place the user whose line index number is 
in Rl at the tail of the S*IOFN high priority execution queue. 
All registers are preserved. 



QHIPRI: MOV 



RO, -<SP> 



TST 


LITIME(Rl) 


BEG 


3* 


TST 


LHIPCT<R1> 


BEG 


4* 


DEC 


LHIPCT(Rl) 


MOV 


#S*HICP,RO 


CALL 


ENQTL 


BR 


2$ 



4*: 



If this is an interactive job doing I/O, put the job in the S*HICP 
state. 

Is this job interactive or compute bound? 

Br if compute bound 

Used up all allowed I/O ops for interactive? 

Br if yes — no longer interactive 

Decrease remaining number of interactive I/O 

Get interactive completion state code 

Put job at tail of that queue 

Interactive job has performed maximum number of I/O operations while 
in interactive state. Reclasify the job as non-interactive. 

; Say job is no longer interactive 
; Signal that INTIOC has been used up 

iGet # high-prio boosts allowed for CPU jobs 
;Any remaining after number already used? 
» Br if not 
; Set number of remaining high-prio boosts 

Job is compute bound. 

Put job in I/O complete state or CPU state. 



CLR 


LITIME(Rl) 


JSR 


RO, QUNSIG 


. WORD 


*SGIIO 


MOV 


VHIPCT, RO 


SUB 


VINTIO, RO 


BLE 


5* 


MOV 


RO, LHIPCT<R1) 



3*: 

5*: 
1*: 

2*: 



TST 


LHIPCT(Rl) 


BNE 


1* 


JSR 


RO, QUNSIG 


. WORD 


SSGHIO 


CALL 


QCPU 


BR 


2* 


DEC 


LHIPCT(Rl) 


MOV 


#S*IOFN, RO 


CALL 


ENQTL 


MOV 


<SP>+, RO 


RETURN 





HAS JOB USED UP ALL OF ITS HIGH-PRIO HITS? 

BR IF NOT 

SIGNAL THAT HIPRCT WAS USED UP 

; QUEUE AS CPU-BOUND JOB IF YES 

ONE LESS HIGH-PRIORITY HIT REMAINING 

GET STATE CODE 

PUT USER AT TAIL OF QUEUE 
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QCPU — Place job in CPU-bound run queue 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 005334 012700 0000000 

11 005340 004737 004424' 

12 005344 005061 000000G 

13 005350 013761 OOOOOOG OOOOOOG 

14 005356 000207 



SBTTL QCPU 



Place job in CPU-bound run queue 



QCPU is called to change the run-state of a job to be 
compute bound. 



i 
i 
i 
t 



Inputs: 
Rl = Index number of job to be affected. 
Job's time quantum is reinitialized. 



QCPU: 



MOV 

CALL 

CLR 

MOV 

RETURN 



#S*CPU, RO ; PUT JOB IN CPU-BOUND EXECUTION QUEUE 
ENQTL : REQUEUE JOB AT TAIL OF THAT QUEUE 

LQUAN(Rl) i REINITIALIZE JOB'S TIME QUANTUM 
VHIPCT, LHIPCT<R1);REINIT NUMBER OF HIOH-PRIO HITS FOR JOB 



TSEXEC 
GTSYMB 
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— Get system message buffer 



« 

4 
€ 



l 

2 

3 
4 

5 
6 

7 

e 

9 
10 

li 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



. SBTTL GTSYMB — Get system message buffer 
GTSYMB is called to get a system message buffer block. 



Outputs: 
R4 = Address of message block acquired. 
C-flag set if no free message blocks are available. 



005360 

005366 013704 000000G 

005372 001417 



005374 016437 OOOOOOG OOOOOOG 
005402 005337 OOOOOOG 
005406 



005414 010400 

005416 062700 OOOOOOG 

005422 010064 OOOOOOG 

005426 000241 

005430 000404 



005432 

005440 000261 

005442 000207 



GTSYMB: DISABL 

MOV SNMSHD, R4 
BEG. 1* 



## DISABLE *# 

GET ADDRESS OF 1ST FREE MESSABE BLOCK 

BR IF NO FREE BLOCKS 



Got a free message block. Unlink from free list. 

MOV 5B*LNK(R4>, SNMSHD; REMOVE BLOCK FROM FREE LIST 
DEC NMUMB ; DECREASE # FREE BLOCKS 

ENABL ; ** ENABLE ** 

Initialize pointer into text area of buffer. 

i GET ADDRESS OF BUFFER 

; POINT TO TEXT STORAGE AREA IN BUFFER 

; SET POINTER TO TEXT AREA 

i SIGNAL SUCCESS ON RETURN 



MOV 


R4, RO 


ADD 


#SB*TXT, RO 


MOV 


RO, SB*PNT(R4) 


CLC 




BR 


2* 



No free message blocks. 



1*: 


ENABL 




SEC 


2$: 


RETURN 



; ** ENABLE ** 

i SIGNAL FAILURE ON RETURN 



4 

i 
i 



TSEXEC • 
TSXTRP • 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX-Plus Executive 
Catch traps 



005444 012737 



005452 
005454 
005460 
005466 
005470 
005472 
005474 
005502 
005506 
005510 
005512 
005520 
005526 
005532 



005536 
005540 
005542 
005550 
005556 
005562 



005566 
005574 



005602 
005604 
005610 
005616 

005620 
005622 



010446 
1 1 3704 
032764 
001410 
012604 
011646 
016666 
005066 
000002 
010546 
013737 
013737 
012705 
000137 



010446 
010546 
013737 
013737 
012705 
000137 



032766 
001002 



010446 
1 1 3704 
032764 
001403 

012604 
000137 
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SBTTL TSXTRP — Catch traps 



TSXT4 and TSXT10 catch traps to 4 and 10 respectively. 
If the user did a . TRPSET his routine is entered. 
Otherwise the job is aborted. 



Trap to 250 (Memory management trap) 

OOOOOOG OOOOOOG TRP250: MOV #MMENBL> @#SROMMR; RESET ERROR FLAGS 

Treat trap to 250 like trap to 4. 



OOOOOOG 
OOOOOOG OOOOOOG 



000004 
000004 



OOOOOOG 
120002 
000001 
OOOOOOG 



000002 



000034 ' 
OOOOOOG 



Trap to 4. 

TRP4: MOV 
MOVB 
BIT 
BEQ 
MOV 
MOV 
MOV 
CLR 
RTI 

1*: MOV 
MOV 
MOV 
MOV 
JMP 

Trap to 10 



R4, -<SP> 
CORUSR, R4 



Get current job index number 



#*GEMAR> L5W1KR4); Are we accessing user's argument block? 



TRP10: 



OOOOOOG 
120002 
000002 
OOOOOOG 



000034 ' 
OOOOOOG 



MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



1* 

< SP ) +, R4 

(SP),-(SP) 

4(SP),2(SP> 

4(SP) 

R5, -<SP> 
@#KPAR5, TRPAR5 
@# 120002, ABRTOV 
#1,R5 
TSXTX 



R4, -(SP) 
R5, -<SP) 
@#KPAR5, TRPAR5 
©#120002, ABRTOV 
#2, R5 
TSXTX 



Br if not 

Pop R4 

Move down PC 

Move down PS 

Store value to 

Return following 



be returned 
MFPD with O 



on stack 



SAVE KPAR5 
SAVE RAD50 
ERROR CODE 
ENTER TRAP 



FROM TRAP FOR ERROR HANDLING 

OVERLAY NAME 

FOR TRAP 4 

HANDLER IN TSX OVERLAY 



SAVE KPAR5 FROM TRAP FOR ERROR HANDLING 

SAVE RAD50 OVERLAY NAME 

ERROR CODE FOR TRAP 10 

ENTER TRAP HANDLER IN TSX OVERLAY 



Trap to 14 (Breakpoint trap) 



OOOOOOG 000002 TRP14: BIT 

BNE 



005576 000177 172226 



005626 000137 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



#UMODE, 2(SP) iDID BREAKPOINT OCCUR IN USER OR KERNEL MODE? 
1* i BR IF USER MODE 

; Breakpoint occurred in kernel mode. 
; Give control to system ODT. 

JMP ©ODTTRP ; ENTER SYSTEM DEBUGGER 

; Breakpoint occurred in user mode. 
» Give control to user's debugger program. 
1*: MOV R4, -(SP) ; 

MOVB CORUSR, R4 ; Get current job index number 

BIT #*DEBUG, LSW9(R4)i Is program being run with TSX debugger? 

BEQ 2* i Br if not 

; Enter TSX-Plus debugger 

MOV (SP)+, R4 

JMP BRKENT > Enter TSX-Plus debugger 

; Enter user's debugger 
2*: JMP TRPBPT i ENTER TRAP HANDLING ROUTINE IN TSX OVERLAY 



« 

« 

< 
« 
i 
i 
« 

< 
i 

i 

i 

i 
i 

< 

i 
< 
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58 
59 

60 005632 

61 005634 

62 005636 

63 005642 

64 005646 
65 

66 

67 

68 005652 

69 

70 

71 

72 005664 

73 005666 

74 005670 

75 005674 

76 005676 

77 005702 

78 005706 
79 

80 
81 
82 
83 

84 005712 

85 005716 

86 005720 

87 005724 

88 005732 



010446 
010546 
012705 
012704 
000137 



010446 
010546 
105737 
001017 
012705 
012704 
000137 



004537 
000000 
113704 
052764 
000207 



000013 
000020 
0000000 



OOOOOOG 

000015 
000034 
OOOOOOG 



006404 ' 

OOOOOOG 
OOOOOOG 



Trap to 20 <IOT) 



TRP20: 



MOV 
MOV 
MOV 
MOV 
JMP 



R4, -(SP) 
R5, -<SP> 
#13, R5 
#20, R4 
TRPCOM 



Trap to 24 (Power fail) 
TRP24: DIE #EM*PFT 



GET ERROR CODE 

GET TRAP LOCATION 

ENTER TRAP HANDLING ROUTINE IN TSX OVERLAY 



i SYSTEM HALT IF POWER FAIL TRAP 



Trap to 34 (TRAP instruction) 



TRP34: 



MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


TSTB 


DOTRMP 


BNE 


TRPMAP 


MOV 


#15, R5 


MOV 


#34, R4 


JMP 


TRPCOM 



i Using TRAP instruction for mapping? 

> Br if yes 

; GET ERROR CODE 

iGET TRAP LOCATION 

; ENTER TRAP HANDLING ROUTINE IN TSX OVERLAY 

Trap to 244 (Floating point exception interrupt). 

Set *FPUEX flag and return through SYSXIT which will do actual 

FPU exception processing when we are about to return to user mode. 



FPTRAP: 



OOOOOOG 



JSR 
. WORD 
MOVB 
BIS 
RETURN 



R5, INTEN 



CORUSR, R4 

#*FPUEX,LSW(R4) 



> Standard interrupt entry 

; Run at priority 7 

; Get current job index number 

i Set flag for job saying FPU interrupt 

i Return and perform FPU exception code 






TSEXEC 
TRPMAP 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



. SBTTL TRPMAP 



High-performance memory mapping service 



005734 



005734 042766 0000000 000006 



005742 020027 0000000 

005746 103404 

005750 052766 0000000 000006 

005756 000423 



005760 116005 0000000 



005764 006300 

005766 016004 0000000 

005772 010465 OOOOOOG 

005776 010465 OOOOOOG 

006002 010465 OOOOOOG 



006006 016004 OOOOOOG 

006012 010465 OOOOOOG 

006016 010465 OOOOOOG 

006022 010465 OOOOOOG 



006026 012605 
006030 012604 
006032 000002 



This routine is jumped to uihen a TRAP instruction is executed and uie 
are are doing high-performance memory mapping. 



< 



Inputs: 
RO = Mapping region index number. 

Stacic : 

<SP) - R5 

2<SP> = R4 

4<SP) ■ PC 

6(SP) = PS 

TRPMAP: 

Clear C-flag in PS 

BIC #CFLAG, 6(SP) > Clear C-flag in PS on stack 



i Make 


sure 


th 


e region index 




CMP 




RO, #MAXSRD 




BLO 




1* 




BIS 




#CFLAG, 6 < SP ) 




BR 




9* 


; Get 


the PAR 


index 


1*: 


MOVB 




SR*PX<R0>,R5 


; Load 


the 


PAR 


value 




ASL 




RO 




MOV 




SR*PAR(R0),R4 




MOV 




R4, RPAR<R5) 




MOV 




R4, CUPAR0<R5) 




MOV 




R4, UPAR0(R5) 


; Load 


the 


PDR 


value 




MOV 




SR*PDR<R0),R4 




MOV 




R4, RPDR<R5> 




MOV 




R4, CUPDR0<R5) 




MOV 




R4, UPDR0(R5) 


* Finished 






9*: 


MOV 




<SP)+, R5 




MOV 




(SP)+, R4 




RTI 







; Is region index valid? 

; Br if ok 

; Set carry flag for return 



; Get PAR index number 



» Get word table index 

;Get value to load into PAR registers 
/Shared run-time mapping for this PAR 
i Set PAR value in context block 
.Set PAR value in hardware register 



Get value to load into PDR registers 
Shared run-time mapping for this PDR 
Set PDR value in context block 
Set PDR value in hardware register 



i Return from TRAP instruction 



TSEXEC 
UEXINT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 
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. SBTTL UEXINT — Unexpected interrupt 



An interrupt occured at an unexpected location. 

On entry to UEXINT the interrupt vector address is encoded 

in the PS that was set by the interrupt vector. 

The address has the two low-order bits removed <they are assumed 

to be zero) and the remainder of the address stored in the 

PS fields priority and n-z-v-c (note the T field is not used). 



006034 
006040 
006042 
006044 
006050 
006054 
006056 
006060 



013703 
006303 
010302 
042703 
042702 
006302 
050203 



0000000 



177077 
177741 



UEXINT: MOV 
ASL 
MOV 
BIC 
BIC 
ASL 
BIS 



@#PSW, R3 
R3 

R3, R2 
# A C700, R3 
# A C36, R2 
R2 

R2, R3 
#EM*UEI,R3 



;GET CURRENT PROCESSOR STATUS VALUE 

;ADD ONE LOW-ORDER ZERO BIT 

iCOPY VALUE 

iMASK OUT ALL BUT PRIO FIELD (SHIFTED) 

iMASK OUT ALL BUT N-Z-V-C FIELDS (SHIFTED) 

i ALIGN LOW-ORDER FIELD WITH HIGH-ORDER 

i COMBINE LOW- AND HIGH-ORDER FIELDS 

; SYSTEM CRASH — ARG VALUE - INT LOCATION 



006076 000002 



006100 



Enter at UEXRTN if we should ignore unexpected interrupts 



006112 



UEXRTN: RTI 

Memory parity error 
MEMPAR: DIE #EM*MPR 

Jump occured to location 
JMPO: DIE #EM*JMO 



; Return from interrupt — Ignore it 



MEMORY PARITY ERROR 



; FATAL SYSTEM HALT 



4 
i 



< 
i 

« 

i 
< 

< 



« 

< 
< 

i 



TSEXEC - 
UEXINT - 

1 
o 
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3 

4 

5 

6 

7 

B 

9 
10 

11 006124 
12 
13 
14 

15 006124 

16 006132 

17 006134 

18 006136 
19 

20 

21 

22 006140 106506 

23 

24 

25 

26 006142 

27 006146 

28 006150 

29 006154 
30 
31 
32 

33 006156 

34 006160 
35 
36 
37 

38 006162 

39 006166 

40 006170 
41 

42 
43 
44 006172 000207 



CHKUSP is called tn determine if the current user-mode stack pointer <SP> 
is valid. The SP is checked to make sure it is even and >400. 
CKUSP2 is an alternate entry point that is a little faster if it is 
already known that the previous mode was user. 

Outputs: 
C-flag cleared if SP is valid, Set if invalid. 
R5 = abort code for invalid stack if error detected, otherwise unaltered. 



CHKUSP: 

Return with carry cleared if previous mode is not user 



032737 0000000 OOOOOOG 

001002 

000241 

000207 



021627 000400 

103405 

021637 OOOOOOG 

103002 



006016 
103003 



012705 
000261 
005226 



000011 



BIT 
BNE 
CLC 
RETURN 



#UPMODE, @#PSW 
CKUSP2 



PREVIOUS MODE = USER? 

BR IF YES 

CLEAR CARRY FOR RETURN 



Get the user mode SP 
CKUSP2: MFPD SP 



i GET USER -MODE SP 



Make sure the stack is in the right range 



CMP 


(SP), #400 


BLO 


2* 


CMP 


<SP),UHIMEM 


BHIS 


2* 



DID A STACK OVERFLOW OCCUR? 
BR IF YES 

IS STACK ADDRESS TOO HIGH? 
; BR IF TOO HIGH 



Make sure the stack address is even 



ROR 
BCC 



(SP) 
3* 



; IS THE STACK ADDRESS EVEN? 
; BR IF EVEN — OK 



User's stack pointer is invalid 
2$: MOV #11, R5 



MOV 
SEC 
3*: INC (SP)+ 

Finished 

9*: RETURN 



LOAD ABORT ERROR CODE VALUE 

SIGNAL ERROR ON RETURN 

CLEAN OFF STACK (DON'T ALTER C-FLAG) 



< 
i 



TSEXEC 
CLKINT 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



006174 



006174 105737 OOOOOOG 

006200 001411 

006202 005737 OOOOOOG 



006206 105337 000014' 

006212 001004 

006214 112737 000020 000014' 

006222 000420 



006224 005237 000100' 
006230 003015 



006232 1 1 637 000 1 02 ' 
006236 016637 000002 000104 



006244 004537 006404 

006250 000040 

006252 004537 007332 

006256 OOOOOOG 



006260 000137 OOOOOOG 



. SBTTL CLKINT 



Clock interrupt routine 



i CLKINT is the interrupt service routine for clock interrupts. 
i It is entered directly from the interrupt (priority = 7). 

i 

CLKINT: 

i 

i If this is a PR0-350> access the CSR2 clock register to reenable 

> the interrupt. 

> 

; Is this a PRO-350? 

; Br if not 

; Acknowledge the interrupt 

Ignore every 16'th clock tick on a PRO-350 so that the effective 
clock rate will be 60 Hz. 

i Is this the 16'th tick? 

; Br if not 

; Reset the counter 

i Ignore this clock tick 



TSTB 


PROFLG 


BEQ 


1* 


TST 


@#PCCCR2 



DECB 


PROSKP 


BNE 


1* 


MOVB 


#16. , PROSKP 


BR 


CLKRTI 


; Count anoth 


er clock tick 


1*: INC 


TIKCNT 


BGT 


CLKRTI 



> ANOTHER TICK HAS OCCURED 

; BR IF STILL PROCESSING LAST TICK 



We are not reentering the clock processing routine. 
Save interrupted PC & PS for performance monitor to use. 



MOV (SP),CLKPC 
MOV 2<SP),CLKPS 

Drop priority to 6 then fork. 



; INTERRUPTED PC 
; INTERRUPTED PS 



JSR 


R5, INTEN 


. WORD 


40 


JSR 


R5, FORK 


. WORD 


FP*CKT 



DROP RUNNING PRIORITY TO 6 
MASK TO SET PR 10 TO 6 
NOW FORK TO GET TO PRIORITY 
Specify fork priority 

CLKRUN is entered to perform clock servicing in the system mapped region. 

JMP CLKRUN ; ENTER THE SYSTEM MAPPED REGION 

The clock processing routine is still running from the last tick. 
Don't reenter it. 



006264 000002 



CLKRTI: RTI 



i RETURN FROM INTERRUPT QUICKLY 



I 

4 
i 
< 

I 
I 
< 
4 

4 
4 
t 
i 
4 

i 
4 
4 
4 

i 
< 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

25 006266 
26 
27 
28 

29 006270 

30 006274 
31 

32 
33 
34 

35 006276 

36 006302 
37 

38 
39 

40 006304 

41 006312 

42 006316 
43 

44 
45 
46 
47 

48 006320 

49 006324 

50 006330 
51 

52 

53 

54 

55 

56 006332 

57 
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012604 



105737 000010 
002017 



013746 OOOOOOG 
010046 



004537 006404 
000000 



012437 006330' 
004537 007332 ' 
000000 



000114 



. SBTTL ENSYS 



Enter system state 



ENSYS is called to enter system state. What this consists of is switching 

to the interrupt stack and saving the kernel PAR6 value. 

Basically, what we do is fake an interrupt and then do a . INTEN and . FORK. 

On return from ENSYS we are running in system state at fork level using 

the interrupt stack. 

To exit from system state, do a RETURN. 

The form of the call to ENSYS is: 

MOV #return_address, RO 

CALL ENSYS 

. WORD f ork_priority 



i Get return address 
> Enter system state 



Fork priority level to run at 



Inputs: 
RO = Address of routine to be jumped to when a RETURN is done to exit 
from system state. 

Outputs: 
RO, R4 and R5 are destroyed. 

On return we are in system state running on the interrupt stack. 
All registers except RO are preserved across the ENSYS. 

ENSYS: MOV <SP)+, R4 ; Get return address to R4 

Check to see if we are already running in system state. 



TSTB 
BGE 



STKLVL 
10* 



j Are we already in system state? 
i Br if already in system state 



We are not currently in system state. 

Put PC & PS on the stack to make it look like an interrupt occured. 



MOV @#PSW, -<SP> 
MOV RO, -(SP) 



iPS 



; PC — Return here when we exit system state 
Do . INTEN to enter system state. 



DISABL 

JSR R5, INTEN 

. WORD 



i ** Disable interrupts #* 
i Enter system state 
;Priority = 7 



1*: 



We are now running in system state on the interrupt stack. 

The processor priority level is 7. 

Now do a .FORK so that we will not hold out interrupts. 

> Set fork priority 

» Do a fork 

; Fork priority is stored here 

We are now running in system state, fork level. 

Return to caller in system state. 

Caller should do a RETURN to exit from system state. 



MOV 


<R4>+, 1* 


JSR 


R5, FORK 


. WORD 






3*: 



JMP 



<R4) 



Call calling routine in system state 



i 
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58 
59 
60 

61 006334 

62 006336 

63 006340 

64 006342 

65 006344 

66 006350 

67 006354 

68 006360 
69 

70 
71 
72 

73 006364 

74 006370 

75 006374 

76 006376 

77 006400 

78 006402 



010046 
010146 
010246 
010346 
013746 
013746 
012746 
000164 



012637 
012637 
012603 
012602 
012601 
000207 



OOOOOOG 
OOOOOOG 
006364 ' 
000002 



OOOOOOG 
OOOOOOG 



ENSYS was called while already running in system state. 

Save context and set ud stack so we will restore it on return. 



10*: MOV RO, -<SP> 

MOV R 1 , - < SP ) 

MOV R2, -<SP> 

MOV R3, -(SP) 

MOV @#KPAR6, -<SP> 

MOV €#KPAR5, -<SP) 

MOV #ll*i -<SP) 

JMP 2(R4) 



i Set ultimate return address 



i Save kernel PAR 6 

i Save kernel PAR 5 

; Set address of routine 

i Enter user's routine 



for ENSYS exit 



Finished with routine in system state. 
Drop down a level. 



11*: 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



<SP>+, S#KPAR5 
<SP>+, @#KPAR6 
(SP)+, R3 
< SP ) +, R2 
<SP)+,R1 



; Restore kernel PAR 5 
; Restore kernel PAR 6 



; Return 



i 

i 

i 

< 

< 



€ 

i 
i 

i 
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1 

? 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

26 006404 010446 
27 
28 
29 
30 

31 006406 
32 
33 
34 

35 006414 105237 000007' 

36 006420 105237 000010' 

37 006424 003004 
38 

39 
40 
41 

42 006426 010637 000120' 

43 006432 013706 000022' 
44 

45 
46 

47 006436 013746 000122' 

48 006442 113746 000011' 

49 006446 112737 000000 

50 006454 013746 0000000 

51 006460 013746 0000000 

52 006464 011537 000122' 

53 006470 042537 OOOOOOG 
54 

55 
56 
57 
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. SBTTL INTEN — Interrupt entry processing 



INTEN performs the RT-11 . INTEN function which is used to begin 
interrupt processing. The form of the call to INTEN is: 

JSR R5, INTEN 

.WORD < A CPriority to run at>&340 

INTEN switches to the TSX interrupt stack and then calls the calling 

routine back as a coroutine. 

When the interrupt processing task completes* it exits back to 

INTEN by doing an RTS PC. 

Before returning from interrupt processing INTEN calls any routines 

queued as a result of .FORK requests and also may call the job scheduler 

if any job scheduling event occured during interrupt processing. 

There are three "level indicators" that indicate the processing state. 

INTLVL indicates the hardware interrupt level. 

STKLVL indicates if we are running on the interrupt stack. 

FRKPRI indicates the current fork processing priority. 

The initial (non-interrupt, non-fork) value for all three is -1. 

If INTLVL >= O we are in an interrupt routine. 

If INTLVL < we are not at interrupt level but may be at fork level. 

If FRKPRI > we are at fork level. 



INTEN: MOV 



R4, -(SP) 



» R5 is already on stack* save R4 too. 



We should already be running at processor priority level 7. 
However* make sure we are at level 7. 



DISABL 



; ; #* Disable interrupts #* 



Increment interrupt level counter. 



INCB 


INTLVL 


INCB 


STKLVL 


BGT 


1* 



; Increment interrupt level counter 

, Are we already running on interrupt stack? 

i Br if yes — Interrupting another int/fork 



We were at level when the interrupt occured. 

Save user's stack pointer and switch to TSX interrupt stack. 



« 

i 
f 
i 

< 

« 

< 

€ 

i 
i 
I 
4 



MOV 
MOV 



SP, USP 
INTSTK, SP 



, i ; Save user's stack pointer 
;; * Switch to interrupt stack 



Drop running priority to that requested by caller. 



1*: 



000011 ' 



MOV INTPRI,-(SP) 

MOVB FRKPRI, -(SP) 

MOVB #0, FRKPRI 

MOV @#KPAR6»-(SP) 

MOV @#KPAR5, -<SP) 

MOV <R5),INTPRI 

BIC (R5)+, S#PSW 



, , Save current running priority 
i , Save current fork level priority 
; i Not at fork level (preserve C-bit) 
; ; Save kernel-mode PAR6 register 
> i Save kernel-mode PARS register 
; ; Set new priority 
Drop running priority 



We are now running at the requested priority. 
Call our caller back as a coroutine. 



< 
i 
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58 006474 

59 006476 



004715 



CALL 



@R5 



INTENX: 



iCall caller as a coroutine 

> Must immediately follow CAM #R5 



TSEXEC • 
INTEN • 

1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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006476 
006504 
006510 
006514 
006520 
006524 
006530 



012637 
012637 
112637 
012637 
105337 
002405 



OOOOOOG 
OOOOOOG 
000011' 
000122' 
000007 ' 



006532 
006536 
006540 
006542 



105337 
012604 
012605 
000002 



000010 



006544 
006546 
006554 
006560 
006562 
006570 



006572 
006576 
006604 
006612 



006620 
006624 
006626 
006630 
006632 
006636 



006642 
006650 
006656 



010346 

013703 
001515 
126337 
101511 



1 1 3746 
116337 
016337 



000124' 
OOOOOOG 000011 



000011' 

OOOOOOG 000011 
OOOOOOG 000124 



013746 
010046 
010146 
010246 
013746 
013746 



000132 



OOOOOOG 
OOOOOOG 



013763 
010337 



OOOOOOG OOOOOOG 
OOOOOOG 



Interrupt processing routine is finished. 

See if we are returning to level or to a lower level interrupt routine. 



INTXIT: DISABL 
MOV 
MOV 
MOVB 
MOV 
DECB 
BLT 



(SP)+, @#KPAR5 
(SP)+, @#KPAR6 
(SP)+, FRKPRI 
(SP)+, INTPRI 
INTLVL 
1* 



; ## Disable interrupts ** 

i Restore kernel-mode PARS register 

; Restore kernel-mode PAR6 register 

; Restore fork processing priority 

> Reset interrupt priority 

; Are we returning to level 0? 

; Br if yes 



DECB 


STKLVL 


MOV 


(SP)+, R4 


MOV 


(SP)+, R5 


RTI 





1*: 
2*: 



We are about to return to a lower-level interrupt. 

We go back to lower level interrupt routines before we check 

for pending fork requests. This is done to give all interrupt routines 

priority over all fork routines. 

; We are going down one level on the stack 

; Continue processing lowei — priority interrupt 

We are returning to level O. 

See if there are any pending fork queue requests. 

MOV R3, -<SP> 

DISABL ; #* Disable interrupts ** 

MOV FRKCQE, R3 i Are there any pending fork requests? 

BEQ 6* iBr if not 

CMPB FQ*PRI(R3), FRKPRI; Is pending request higher prio than current^ 

BLOS 6* ;Br if not 

There is a fork request that needs to be processed 

MOVB FRKPRI, -<SP) ; Save current fork priority 

MOVB FQ*PRI(R3)> FRKPRI ; Set current fork priority 

MOV FQ*LNK(R3)i FRKCGE ; Remove fork block from pending list 

ENABL j #* Enable interrupts *# 

Save current context before entering the fork routine 

; Address of currently running fork routine 



MOV CURFRK, -<SP) 

MOV RO, -<SP> 

MOV R 1 , - ( SP ) 

MOV R2, -(SP) 

MOV @#KPAR6, -(SP) 

MOV @#KPAR5, -(SP) 



j Save kernel-mode PAR6 register 
/Save kernel-mode PAR5 register 



Return fork request block to the free list 

DISABL ; ** Disable interrupts *# 

MOV FREFRK, FQ*LNK(R3); Put fork block back on free list 

MOV R3, FREFRK 

See if fork request has been cancelled 



4 

\ 



< 
i 

i 

i 
I 

< 



4 
4 

< 

4 
4 
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— Interrupt ent 


ry processing 


58 








59 


006662 


016337 


OOOOOOG OOOOOOG 


60 


006670 


016337 


0000000 OOOOOOG 


61 


006676 


016304 


OOOOOOG 


62 


006702 


001403 




63 


006704 


005024 




64 


006706 


005714 




65 


006710 


001422 




66 








67 








68 








69 


006712 


016304 


OOOOOOG 


70 


006716 


016305 


OOOOOOG 


71 


006722 


016302 


OOOOOOG 


72 


006726 


016301 


OOOOOOG 


73 


006732 


016300 


OOOOOOG 


74 


006736 


010037 


000132' 


75 


006742 


016303 


OOOOOOG 


76 


006746 






77 








78 








79 








80 


006754 


004710 




81 








82 








83 








84 


006756 






85 


006764 


012637 


OOOOOOG 


86 


006770 


012637 


OOOOOOG 


87 


006774 


012602 




88 


006776 


012601 




89 


007000 


012600 




90 


007002 


012637 


000132' 


91 


007006 


112637 


000011 ' 


92 








93 








94 








95 


007012 


000655 




96 








97 








98 








99 


007014 


012603 




100 








101 








102 








103 


007016 


105337 


000010' 


104 


007022 


002002 




105 


007024 


013706 


000120' 


106 








107 








108 








109 


007030 


012604 




110 


007032 


012605 
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MOV FQ*PA5(R3)> ©#KPAR5 ; Set mapping for kernel PAR 5 

MOV FQ*PA6<R3)> @#KPAR6 > Set mapping for kernel PAR 6 

MOV FG*UFB<R3>> R4 > Get address of FG*LNK in user's fork block 

BEG 7* » Br if user did not specify a fork block 

CLR (R4)+ ; Say fork request has been processed 

TST (R4) > Has fork request been cancelled? <FQ*RTN> 

BEQ 8* » Br if cancelled 



Set up context based on information in fork block 



7*: MOV FQ*R4<R3),R4 

MOV FQ*R5(R3).R5 

MOV FQ*R2(R3).R2 

MOV FQ*RKR3),R1 

MOV FQ*RTN<R3).R0 

MOV RO. CURFRK 

MOV FQ*R3<R3>.R3 
ENABL 

Call the fork routine 

CALL @R0 

Restore context 



.Restore R4 & R5 for fork routine 



; Get address of fork routine to be called 
.Remember address of current fork routine 



8*: 



DISABL 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 



<SP)+, @#KPAR5 
(SP)+, @#KPAR6 
<SP)+, R2 
(SP>+, Rl 
<SP>+, RO 
(SP)+. CURFRK 
<SP>+, FRKPRI 



; #* Enable interrupts *# 



iCall routine at fork level 



;Make sure interrupts are disabled 
; Restore kernel-mode PARS register 
i Restore kernel-mode PAR6 register 



j Address of currently running fork routine 
> Restore fork priority 



See if there are more pending fork requests 

BR 2* i See if there are more fork requests to do 

We have processed all fork queue requests. 

6*; MOV <SP)+, R3 

Switch back to user's stack. 

» Going down one level on interrupt stack 
j Br if still more levels on int stack 
> Switch back to user's stack 



DECB 


STKLVL 


BGE 


9* 


MOV 


USP. SP 



Completed interrupt processing 



9*: 



MOV 
MOV 



<SP>+, R4 
<SP)+, R5 



; R5 was saved by JSR R 5. INTEN 



I 

I 
4 
( 






< 

4 
€ 



TSEXEC • 


— TSX-P 
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MACRO V 


INTEN - 

i 

2 


— Interrupt ent 


ry processing 


3 
4 
5 
6 


007034 


032766 


0000000 


000002 


7 


007042 


001502 






8 


007044 


105737 


000010' 




9 


007050 


002077 






10 










ii 










12 










13 


007052 








14 


007060 


010146 






15 


007062 


113701 


OOOOOOG 




16 










17 










18 










19 


007066 


032761 


OOOOOOG 


OOOOOOG 


20 


007074 


001402 






21 


007076 


000137 


OOOOOOG 




22 










23 










24 










25 


007102 


032761 


OOOOOOG 


OOOOOOG 


26 


007110 


001413 






27 


007112 


032737 


OOOOOOG 


OOOOOOG 


28 


007120 


001004 






29 


007122 


042761 


OOOOOOG 


OOOOOOG 


30 


007130 


000403 






31 


007132 


012601 






32 


007134 


000137 


OOOOOOG 




33 










34 










35 










36 


007140 


012601 






37 


007142 


105737 


000004 ' 




38 


007146 


001406 






39 










40 










41 










42 


007150 


004737 


005122' 




43 


007154 


004737 


000210' 




44 


007160 


004737 


005122' 




45 










46 










47 










48 


007164 


005737 


OOOOOOG 




49 


007170 


001427 






50 


007172 


105737 


OOOOOOG 




51 


007176 


001024 






52 










53 










54 










55 


007200 


010146 






56 


007202 


013701 


OOOOOOG 




57 


007206 


005037 


OOOOOOG 





At this point we are about to do an RTI to return from an interrupt 

or from an EMT. We are running on the user's stack in his context block 

and all of his registers are intact. 



SYSXIT: BIT 
BEQ 
TSTB 
BGE 



#UMODE, 2<SP) 
DORTI 
STKLVL 
DORTI 



iAre uie about to return to user mode? 

i Br if not 

; Are we running on system stack? 

; Br if running on system stack 



We are about to return to user mode. 

s ** Enable ** 

i Get job index number 

See if a Floating Point Unit (FPU) exception interrupt occurred. 



ENABL 

MOV 

MOVB 



R1,-<SP> 
CORUSR, Rl 



BIT #*FPUEX» LSW<R1) ;Did a FPU exception interrupt occur? 

BEQ 3* > Br if not 

JMP FPTRPX » Do FPU exception processing 



See if user typed ctrl-D to force entry to the debugger. 



3*: 



breakpoint? 



4*: 



2*: 



BIT #*DBGBK, LSW9<R1 )» Does user want to force 

BEQ 2* ; Br if not 

BIT #PO*DBG> PRIVCO » Is user authorized to use debugger? 

BNE 4* i Br if yes 

BIC #*DBGBK, LSW9<R1>; Clear effect of ctrl-D 

BR 2* » Don't enter debugger 

MOV <SP>+, Rl 

JMP DBGBRK i Enter debugger 

See if a job scheduler cycle was requested. 



; DO WE NEED TO CALL THE JOB SCHEDULER? 
;BR IF NOT 



MOV 


(SP)+,R1 


TSTB 


DOSCHD 


BEQ 


1* 



We need to call the job scheduler. 



CALL 
CALL 
CALL 



CHKABT 

SCHED 

CHKABT 



SEE IF JOB HAS BEEN ABORTED 

CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 



1*: 



See if user did a . SPCPS to alter return address from completion routine. 

DID USER DO A . SPCPS? 

BR IF NOT 

Is user still in a compl routine? 

DON'T TRIGGER .SPCPS UNTIL EXITING FROM COMPL 

User did a . SPCPS — Set new PC for return. 



TST 


SPCPS 


BEQ 


DORTI 


TSTB 


CURCP 


BNE 


DORTI 



MOV 
MOV 
CLR 



R 1 , - < SP ) 
SPCPS, Rl 
SPCPS 



iGET ADDRESS OF USER'S INFORMATION BLOCK 
; REMEMBER THAT WE HAVE DONE THE . SPCPS 



I 

4 
4 
4 

4 
4 
4 
4 

4 
I 
< 
4 
I 
4 
I 
I 
4 
i 
i 
i 
( 



1 
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58 


007212 


052737 


OOOOOOG 


OOOOOOG 




59 


007220 


062701 


000004 






60 


007224 


016646 


000004 






61 


007230 


106611 








62 


007232 


016646 


000002 






63 


007236 


106641 








64 


007240 


106541 








65 


007242 


012666 


000002 






66 


007246 


012601 








67 












68 












69 












70 


007250 


023727 


000600 


123456 




71 


007256 


001410 








72 


007260 










73 


007300 


027727 


170520 


123456 




74 


007306 


001410 








75 


007310 










76 












77 












78 












79 


007330 


000002 
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BIS #UPMODE, @#PSW 

ADD #4,R1 

MOV 4<SP),-<SP> 

MTPD <R1) 

MOV 2<SP),-<SP> 

MTPD -<R1> 

MFPD -<R1) 

MOV <SP>+, 2<SP) 

MOV <SP>+, Rl 



MAKE SURE PREVIOUS MODE = USER 

POINT TO CELL WHERE OLD PS IS TO BE STORED 

GET OLD PS VALUE 

STORE OLD PS IN USER'S 

GET OLD PC VALUE 

STORE INTO USER'S INFO 

GET NEW PC FROM USER'S 

SET NEW PC FOR RETURN 



INFO BLOCK 

BLOCK 
INFO BLOCK 



See if a system stack overflow occured 



DORTI: CMP SSEND, #123456 

BEG. 1* 

DIE #EM*SOF, #1 

1*: CMP @ I NTSND, #123456 

BEQ 2* 

DIE #EM*SOF» #2 

» 

> Return to the user. 
2*: RTI 



GENERAL SYSTEM 

BR IF OK 

GENERAL SYSTEM STACK 

INTERRUPT STACK OK? 

BR IF OK 

INTERRUPT STACK <INTSTK) 



STACK OK? 

<SS) OVERFLOW 



OVERFLOW 



RETURN FROM INTERRUPT OR EMT PROCESSING 



M 
\ 



4 
< 

4 

< 

< 
< 

4 
< 

I 

< 

< 

< 
< 
4 
4 
4 



M 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



007332 010446 



26 

27 

28 007334 

29 

30 

31 

32 

33 007340 

34 007344 

35 007350 

36 007354 

37 007360 

38 007364 

39 007366 

40 007370 

41 007372 

42 007376 

43 007400 

44 007404 

45 007406 

46 007410 

47 007414 

48 007420 

49 007422 

50 007424 

51 007430 
52 

53 

54 

55 007434 

56 

57 



012664 
012664 
010164 
010264 
010364 
012502 
001416 
003006 
020227 
101003 
110264 
000407 
060502 
162702 
010264 
010522 
010512 
016402 
010564 



SBTTL FORK 



— Queue a fork request 



FORK is called to queue a fork request. 

Note that INTEN must have been called before FORK is called and that 
nothing may be pushed on the stack between the INTEN call and the FORK. 
A fork request is held until the last active interrupt routine is ready 
to return to the job that was originally interrupted then the fork 
requests are processed in order by priority and* within the same priorityi 
by the order in which they were queued. 
The form of the call to FORK is: 



JSR 
. WORD 



R5, FORK 

<f orkblock- 



> or <priority> 



The TSX fork routine differs from the RT-11 fork routine in that TSX 

uses an internal set of fork request blocks rather than using blocks 

provided by the caller of FORK. 

The word following the JSR R 5, FORK may contain 

fork block* or it may contain a priority value 

which becomes the fork processing priority, or 

case a default fork priority <FP*DEF) is used. 



the address of 
in the range 1 
may be zero 



it 



a user 
to 127 
(0) in which 



004737 007442 ' 



OOOOOOG 
000000G 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



000002 
OOOOOOG 



OOOOOOG 
OOOOOOG 



004737 007534 



FORK: MOV R4, -<SP> 

Get a free fork block from the free list. 

CALL FRKGET i Get a free fork block 

We got a free fork block. R4 = Address of block. 

Set up information in fork request block. 



i Save other registers 

i Get addr of user's fork block or fork prio. 
; Br if no user fork block or specified prio. 
; Br if offset to a fork block 
; Is this a priority or an address? 
; Br if it is the address of a user fork block 
;Set fork priority 
BR 4* 
5$: ADD R5, R2 ; Get address of FQ*RTN in user's fork block 

> Get pointer to start of user's fork block 
i Save pointer to user's fork block 
iMake FQ*LNK in user's fork block non-zero 
;Make FQ*RTN in user's fork block non-zero 

4*: MOV FQ*R2<R4>,R2 i Recover R2 

> Save address of routine to call 

Add fork block to queue of waiting fork blocks 

CALL FORKQ > Queue the fork request 

Finished — Return to INTEN routine which will check for fork requests 



MOV 


(SP>+, FQ*R4<R 


MOV 


(SP>+, FQ*R5<R 


MOV 


R1,FQ*RKR4) 


MOV 


R2, FQ*R2<R4) 


MOV 


R3, FQ*R3(R4) 


MOV 


<R5>+, R2 


BEQ 


4* 


BGT 


5* 


CMP 


R2, #FP*MAX 


BHI 


5* 


MOVB 


R2, FQ*PRI(R4> 


BR 


4* 


ADD 


R5, R2 


SUB 


#2, R2 


MOV 


R2, FQ*UFB(R4) 


MOV 


R5, <R2) + 


MOV 


R5, (R2) 


MOV 


FQ*R2<R4), R2 


MOV 


R5, FQ*RTN<R4) 



TSEXEC 
FORK 
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58 . 

59 007440 000207 ' rfturw b . 

KfclURN /Return to INTFN rnnHnp 4 

a. ,,-c , 






TSEXEC - 
FRKGET - 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
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. SBTTL FRKGET — Get a free Fork block 



00744J 



007442 
007450 
007454 
007456 
007470 
007476 



007504 
007512 
007520 
007526 



007532 



FRKGET is called to get a free fork block. 

If no free fork blocks are available, a system crash occurs. 

Outputs: 
R4 - Address of fork block. 
The following fields are initialized in the fork block: 

FQ*PRI - Default fork priority CFP*DEF> 

FQ*PA5 = Current KPAR5 mapping 

FQ*PA6 = Current KPAR6 mapping 

FG*UFB - 

FRKGET: 

Get a fork block from the free list 



I 

c 

4 
4 

t 



013704 
001005 



000000G 



016437 O00O00G OOOOOOG 3*: 



DISABL 

MOV 

BNE 

DIE 

MOV 

ENABL 



FREFRK, R4 
3* 

#EM*FRK 
FQ*LNK<R4>, 



; ** Disable interrupts ** 
; Get address of a free fork block 
; Br if fork block is available 
iSystem halt if no free fork blocks 
FREFRKi Remove fork block from the free list 
i *■* Enable interrupts *# 



Set default values in the fork block 



112764 
013764 
013764 
005064 



000207 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



MOVB 
MOV 
MOV 
CLR 

Finished 

RETURN 



#FP*DEF, FG*PRI(R4); Set default priority 
@#KPAR5, FQ*PA5<R4); Save KPAR5 mapping 
S#KPAR6, FG*PA6(R4)i And PAR6 
FQ*UFB(R4) i No user fork block 



4 

< 

€ 

4 
< 
4 
I 

I 
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4 








5 








6 








7 








8 








9 








10 


007534 


010246 




11 


007536 


010346 




12 








13 








14 








15 








16 


007540 


012703 


OOOOOOC 


17 


007544 






18 


007552 


016302 


OOOOOOG 


19 


007556 


001406 




20 


007560 


126462 


OOOOOOG OOOOOOG 


21 


007566 


101002 




22 


007570 


010203 




23 


007572 


000767 




24 








25 








26 








27 








28 


007574 


010463 


OOOOOOG 


29 


007600 


010264 


OOOOOOG 


30 








31 








32 








33 


007604 






34 


007612 


012603 




35 


007614 


012602 




36 


007616 


000207 
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SBTTL FORKQ — Queue a fork request 



FORKQ is called to place a fork request block on the fork-pending 
list. The queue entry is entered in the request queue based on its 
priority as stored in the FQ*PRI field of the fork block. 



Inputs: 
R4 = Address of fork request block to be queued. 



FORKQ: 



MOV 
MOV 



R2, -<SP> 
R3, -<SP) 



Do a linear search down the list of current fork entries and look 

for the correct position to insert our new entry based on its priority. 

MOV #FRKCQE-FQ*LNK, R3; Get pointer to dummy fork block at head 
DISABL > ## Disable interrupts ** 

1*: MOV FQ*LNK<R3),R2 ; Get address of following fork block 

BEG 2* ; Br if we should insert at end of chain 

CMPB FG*PRI<R4>, FQ*PRKR2); Is next entry of lower priority? 

BHI 2* j Br if yes 

MOV R2, R3 ;Link forward to next entry 

BR 1* ;And continue searching for insert point 

Insert following the entry pointed to by R3 and before the entry 
pointed to by R2 



2*: 



MOV 
MOV 

Finished 



R4, FQ*LNK(R3> 
R2, FQ*LNK(R4) 



ENABL 
MOV 
MOV 
RETURN 



<SP>+, R3 
<SP)+, R2 



.Make previous entry point to us 
;Make new entry point to following one 



> #* Enable interrupts #«■ 
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1 

2 










3 










4 
5 










6 










7 










8 










9 










10 










11 










12 










13 










14 


007620 


010046 




j 


15 


007622 


010146 






16 


007624 


010246 






17 


007626 


010446 






18 


007630 


005764 


OOOOOOG 




19 


007634 


001074 






20 


007636 


016402 


OOOOOOG 




21 


007642 


042702 


177400 




22 


007646 


001467 






23 


007650 


006302 






24 


007652 


020227 


OOOOOOG 




25 


007656 


101063 






26 


007660 


032762 


OOOOOOG 


OOOOOOG 


27 


007666 


001457 






28 










29 










30 










31 










32 


007670 


004737 


OOOOOOG 




33 


007674 


152761 


OOOOOOC 


OOOOOOG 


34 


007702 


110261 


OOOOOOG 




35 


007706 


012700 


OOOOOOG 




36 


007712 


005762 


OOOOOOG 




37 


007716 


001402 






38 


007720 


012700 


OOOOOOG 




39 


007724 


110061 


OOOOOOG 


1 


40 


007730 


116261 


OOOOOOG 


OOOOOOG 


41 


007736 


112761 


OOOOOOG 


OOOOOOG 


42 


007744 


005725 






43 


007746 


010561 


OOOOOOG 




44 


007752 


010564 


OOOOOOG 




45 


007756 


016461 


OOOOOOG 


OOOOOOG 


46 


007764 


010461 


OOOOOOG 




47 


007770 


062761 


OOOOOOG 


OOOOOOG 


48 


007776 


013761 


OOOOOOG 


OOOOOOG 


49 


010004 


010104 






50 


010006 


004737 


OOOOOOG 




51 










52 










53 










54 










55 










56 


010012 


012604 






57 


010014 


012602 







SBTTL SYNCH 



Queue a synch request 



SYNCH is called to queue a synch request. 



A synch request can be made 
it must run in user state, 
request for the job. 
The synch routine is called 
the job is selected and set 



by a handler when it reaches a point where 
The call to SYNCH simply queues a synch 

from the job scheduler at the point where 
up ready to run in user state. 



Inputs: 
R4 = Address of 7-word synch control block. 
R5 = Address following synch call (JSR R5, SYNCH) 



SYNCH: MOV RO, -<SP) 

MOV R1,-<SP) 

MOV R2, - ( SP ) 

MOV R4, -(SP) 

TST SN*RTN(R4) 

BNE 9* 

MOV SN*J0B<R4)>R2 

BIC # A C<377>, R2 

BEQ 9* 

ASL R2 

CMP R2, #LSTSL 

BHI 9* 

BIT #*DILUP,LSW<R2) 

BEQ 9$ 



IS THIS SYNCH BLOCK FREE? 

BR IF NOT 

GET JOB NUMBER FROM SYNCH BLOCK 

KILL SIGN EXTENSION FROM HANDLER MOVB 

ZERO IS INVALID 

CONVERT TO WORD TABLE INDEX # 

IS IT VALID LINE #? 

BR IF NOT 

IS JOB LOGGED ON? 

BR IF NOT 



Synch block looks good. 

Queue a completion request for the job. 



1*: 



CALL 

BISB 

MOVB 

MOV 

TST 

BEQ 

MOV 

MOVB 

MOVB 

MOVB 

TST 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

CALL 



#S*TWFN, RO 
LITIME(R2) 
1* 

#S*HICP,RO 
RO, CQ*RNS<R1) 



GETRTQ ; Get a free queue element (address in Rl) 

#<QF*SYN!QF*SCR>, CQ*FLG<R1); Synch routine, call in kernel mode 

iSet job index number for compl routine 
i Get compl priority for non-interactive jobs 
,• Is this job interactive? 
; Br if not 

;Get compl prio for interactive jobs 
» Set execution state for compl routine 
LPRKR2), CQfPRKRl); Set execution priority 
#CP*SYN, CQ*CP<R1 ); Set compl routine class priority 
<R5)+ > Point to successful return point for synch 

R5, CQ*RTN<R1) ; Set address of routine to call 
R5, SN*RTN(R4) > Set flag saying synch block is busy 
SN*ID<R4), CQ*R0<R1 ) ; Set synch ID value to be passed in RO 
R4,CQ*RKR1) ;Set address of cell to be cleared by call 
#CQ*RTN, CQ*RKR1) 

@#KPAR5, CQ*PA5<R1 ); Set PAR 5 mapping to use for synch routine 
R1,R4 i Get address of completion request block to R4 

QCOMPL ) Queue a completion request for the job 



Successful completion of synch request. 

Do a RTS PC to return from handler interrupt. 

Synch routine will be called from job scheduler. 



MOV 
MOV 



(SP)+, R4 
(SP)+, R2 



« 
i 



f 

( 

I 
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58 010016 

59 010020 

60 010022 

61 010024 
62 

63 
64 
65 

66 010026 

67 010030 

68 010032 

69 010034 

70 010036 



012601 
012600 
005726 
000207 



MOV 
MOV 
TST 
RETURN 



(SP)+, Rl 
<SP)+, RO 
(SP) + 



;POP R5 VALUE 



Error — Invalid synch control block. 

Return to word following . synch request. 



012604 
012602 
012601 
012600 
000205 



9*: 



MOV 


(SP)+, 


R4 


MOV 


(SP)+, 


R2 


MOV 


<SP)+, 


Rl 


MOV 


<SP>+, 


RO 


RTS 


R5 





; ERROR RETURN FROM . SYNCH 



I 
I 

< 
t 
t 

€ 

< 






t 

4 
4 

< 
i 
4 
4 
4 
4 
€ 
€ 
4 
4 
4 
« 
4 
4 
< 
4 



TSEXEC 
GUNS I G 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 



010040 



010040 032061 OOOOOOG 
010044 001407 



010046 010046 

010050 012700 000007 

010054 

010062 012600 



010064 000200 



SBTTL GUNS I G 



Signal quantum expiration 



QUNSIG is called when a time-slice quentum expires to see if the 
user wants to have the terminal bell rung to signal that the time 
slice has expired. 
The SET SIGNAL command is used to control this feature. 

Form of the call: 

JSR RO, GUNS I G 
. WORD *SGxxx 

Where $SGxxx is the flag in LSW8 that controls which quantum expired. 

Inputs: 
Rl = Job index number. 

QUNSIG: 

See if used wants to be notified about this quantum running out 



BIT 
BEG 



(RO)+i LSW8<R1 ) ;Is notification wanted? 



9* 



; Br if not 



Ring terminal bell 



9*: 



MOV 


RO, -<SP) 


MOV 


#7, RO 


OCALL 


QUECHR 


MOV 


<SP)+, RO 


Finished 




RTS 


RO 



; Get bell character 
i Send bell to terminal 



; Return 



« 
i 

< 
c 
i 

< 
i 
i 
i 

i 
i 

€ 
4 
I 

i 
< 

( 



TSEXEC 
SYSHLT 



— TSX-Plus Executive 

— Fatal system halt 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



0066 
0074 
0102 
0106 
0112 
0116 
0120 
0124 
0126 
0134 
0140 
0142 
0150 
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SBTTL SYSHLT — Fatal system halt 



SYSHLT is entered when a fatal system error is detected. 
An error message is printed and the system is halted. 



Inputs: 
<SP> = Address of call to SYSHLT. 
DIEMSG = Address of error message to print. 
OIEARG — Argument value to print with error message. 



013737 

012637 
010637 
020627 
103402 
012706 
000005 
052737 
105737 
001403 
052737 
000137 



OOOOOOG 000034' SYSHLT: 

SYSHL1: 
000042 ' 
000044 ' 
OOOOOOG 

001000 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOC OOOOOOG 
OOOOOOG 1*: 



MOV 

DISABL 

MOV 

MOV 

CMP 

BLO 

MOV 

RESET 

BIS 

TSTB 

BEG 

BIS 

JMP 



@#KPAR5, TRPAR5 



crash 
stack? 



; Save current kernel par 5 mapping 
J DISABLE ALL INTERRUPTS 
iGET ADDRESS OF CALL TO SYHLT 
>Save stack pointer at time of 
i Are we running on context blk 
; Br if not 

;RUN ON SYSTEM STACK NOW 
; RESET ALL DEVICES 

i MAKE SURE MEMORY MANAGEMENT ENABLED 
i DOES MACHINE HAVE AT LEAST 256 KB? 
; BR IF NOT 

#EMMAP.'IOMAP, ©#SR3MMR i TURN ON 22-BIT MEMORY MANAGEMENT 
SYSDIE ; ENTER OVERLAY TO PRINT ERROR MESSAGE 



<SP)+, DIEPC 
SP, DIESP 
SP, #VPAR5 
2* 
#SS, SP 

#MMENBL, @#SROMMR 

MEM256 

1* 



€ 
« 

< 
i 
< 
i 

< 
< 
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1 

3 

4 

5 

6 010154 

7 

8 

9 

10 010154 000137 OOOOOOG 

1 1 000202 ' 
Errors detected: 

### Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 8709 Words < 35 Pages) 

Size of core pool: 17920 Words < 70 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:16.46 

DK: TSEXEC, LP: TSEXEC=DK: TSEXEC. MAC/C/N: SYM 



SBTTL INIJMP 



Final system initialization 



; Turn on kernel mode memory management and perform final system 
i initialization. 

INIJMP: 

i 

; Now jump to EXCINI in TSMISC overlay to complete initialization 



JMP EXCINI 
. END START 



i 
i 

4 
I 

i 

i 

i 
I 
4 
< 

i 

i 
< 

t 
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*CTRLC 


1-69 


28-35 








*DBGBK 


1-53 


41-25 


41-29 






*DEBUG 


1-56 


33-50 








*DILUP 


1-48 


45-26 








*DISCN 


1-48 


28-35 








*FPUEX 


1-51 


33-87 


41-19 






*GEMAR 


1-46 


33-17 








*INCOR 


1-75 


6-29 








*INIT 


1-48 


7-10 








*INKMN 


1-50 


14-23 


14-120 






*IOMAP 


1-82 


14-56 


14-94 






*KINIT 


1-89 


14-144 








*MAPOK 


1-92 


7-43 


14-146 






*MLOCK 


1-79 


12-35 


13-42 


13-59 




SNDMEM 


1-77 


21-14 


21-16 






SNLOCK 


1-79 


12-35 








*NOABT 


1-70 


19-31 


28-39 






*NOUCR 


1-56 


19-129 








*RDSAV 


1-50 


17-28 


18-44 






*SETCC 


1-50 


7-53 


7-61 






*SGHIO 


1-58 


30-38 








*SGIIO 


1-58 


30-26 








fSUSPN 


1-52 


7-17 








WIRJB 


1-69 


14-107 








*VNOTT 


1-49 


19-172 








* WD ISP 


1-49 


7-78 








ABRTOV 


1-24 


33-26* 


33-35* 






ADQ1 


23-35 


23-62# 


24-36 






ADQHD 


23-56 


23-63# 








ADQMID 


23-38 


23-40 


JtS-w-^tJctTr 


24-39 


24-41 


ADQT 


23-48 


23-54# 








ADQTL 


23-47# 


24-45 








ADQXIT 


23-58 


23-64# 








BASMAP 


1-92 


10-69 


11-28 


13-83 


20-52 


BELL 


2-1 1# 










BRKENT 


1-56 


33-54 








BRKPT 


1-36 


4-10# 








CCFLG 


1-62 


7-59 








CFLAG 


1-47 


34-19 


34-25 






CHKABT 


1-24 


21-20 


28-33# 


41-42 


41-44 


CHKUSP 


1-33 


36-1 1# 








CKUSP2 


1-32 


36-16 


36-22# 






CLKCIMT 


1-34 


2-50# 








CLKINT 


1-21 


37-6# 








CLKPC 


1-34 


2-52# 


37-31* 






CLKPS 


1-34 


2-53# 


37-32* 






CLKRTI 


1-21 


37-21 


37-26 


37-48# 




CLKRUN 


1-102 


37-43 








CONFIG 


1-73 


1-77 


17-43 


18-23 




CORUSR 


1-71 
41-15 


5-34* 


7-5* 


15-29 


17-16 


CP*SYN 


1-60 


45-41 








CPLEMT 


1-52 


19-140 








CQ*CP 


1-59 


19-25 


19-72 


19-89 


45-41* 


CQ*FLG 


1-58 


19-74 


19-103 


45-33* 




CQ*JOB 


1-54 


45-34* 









20-70 20-85 



19-160 20-19 27-77 28-34 33-16 33-49 33-86 
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CQ*LNK 

CQ*PA5 

CQ*PRI 

CQ*RO 

CQ*R1 

CQ*RNS 

CQ*RTN 

CR 

CS*EOF 

CSfERR 

CUPARO 

CUPAR 1 

CUPAR6 

CUPAR7 

CUPDRO 

CUPDR1 

CUPDR6 

CUPDR7 

CURCP 

CURFRK 

CURVC 

CW*FPU 

CXBBAS 

CXBJOB 

CXBMOV 

CXBOWN 

CXBSIZ 

CXTBAS 

CXTBUF 

CXTPAG 

CXTPDR 

CXTRMN 

CXTWDS 

D$DMON 

D. FLAG 

DATIMH 

DAT I ML 

DBGBRK 

DEQ 

DIEARG 

DIEMSG 

DIEPC 

DIESP 

DOCMPL 

DORTI 

DOSCHD 

DOSPNR 

DOSPNX 

DOTRMP 

DTLX 

EMSFRK 

EM*JMO 

EM*MPR 

EMSPFT 

EM*SOF 

EM*UEI 



1-61 
1-61 
1-94 
1-61 
1-61 
1-94 
1-61 
2-9# 
1-96 
1-96 
1-105 
1-105 
1-105 
1-105 
1-106 
1-106 
1-106 
1-106 
1-57 
1-40 
1-38 
1-73 
1-42 
1-42 
1-42 
1-42 
1-42 
1-70 
1-42 
1-41 
1-41 
1-41 
1-41 
1-64 
1-64 
1-29 
1-29 
1-53 
1-23 
1-21 
1-21 
1-22 
1-22 
7-74 
41-7 

1-25 
27-33 
27-40 
1-47 
1-32 
1-67 
1-67 
1-67 
1-66 
1-33 
1-67 



19-68 

19-104 

19-90 

19-101 

19-102 

27-88 

19-100 



14-35# 
14-39* 
14-124* 
14-100* 
14-37* 
14-41* 
14-126* 
14-102* 
19-25 
2-64# 
2-63# 
1-86 
2-8 1# 
2-27# 
22-13# 
2-26# 
2-82# 
14-110 
2-80# 
2-77# 
2-78# 
2-79# 
2-76# 
19-149 
19-149 
2-55# 
2-54# 
41-32 
23-30 
2-39# 
2-38# 
2-40# 
2-4 1# 
19-12# 
41-9 

2-17# 
27-54# 
27-47 
33-74 

43-21 
35-29 
35-25 
33-68 
5-26 
35-17 



19-70 

45-48* 

45-40* 

45-45* 

45-46* 

27-90 

45-43* 



14-76* 



14-116* 

19-72 

40-44 

17-43 



22-24 
9-39 
14-125 
14-109 



24-31 

5-26* 

5-26* 

47-13* 

47-14* 

41-49 
6-24* 

27-55# 



19-83 



45-47* 
45-39* 
45-47 



19-83* 



14-136* 15-16 



34-37* 



14-114* 

14-74* 14-88* 14-134* 15-18 



34-44* 



19-88 
40-74* 

18-23 



14-60 

14-126 

20-24 



25-10# 
35-17* 
33-68* 



41-51 
1 9-94* 



19-89* 
40-90* 



19-161* 19-169 



27-86 



41-50 



20-38 



41-72* 41-75* 

35-17* 35-25* 35-29* 41-72* 41-75* 43-21* 



41-70# 

19-187* 20-60* 23-68* 28-19* 41-37 



41-7J 



41-75 



4 
\ 
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FMMAP 1-55 47-22 

EMTCAD 1-52 19-135 19-137* 

ENQHD 1-23 23-9# 27-46 27-53 

ENQTL 1-23 7-24 24-10# 27-32 27-39 28-18 30-18 30-43 31-11 

ENSYS 1-29 38-25# 

ERRLOC 1-65 17-30 18-49* 

EXCBUF 1-22 2-88# 

EXCINI 1-28 48-10 

EXCJOB 1-33 2-19# 6-13 

EXEC 1-21 6-18# 6-38 7-25 

FORCEX 1-23 28-10# 

FORK 1-26 37-38 38-49 42-24# 

FORKQ 1-40 42-55 44-1 0# 

FP*CKT 1-72 37-39 

FP*DEF 1-60 43-27 

FP*MAX 1-60 42-41 

FPTRAP 1-24 33-84# 

FPTRPX 1-75 41-21 

FPUUSE 1-38 2-24# 17-59* 18-26* 19-53 19-55* 

FQSLNK 1-80 40-39 40-54* 43-22 44-16 44-18 44-28* 44-29* 

FQ*PA5 1-82 40-59 43-28* 

FQ*PA6 1-80 40-60 43-29* 

FQ*PRI 1-60 40-32 40-38 42-43* 43-27* 44-20 44-20 

FQ*R1 1-84 40-72 42-35* 

FQSR2 1-84 40-71 42-36* 42-50 

FQ*R3 1-84 40-75 42-37* 

FQ*R4 1-80 40-69 42-33* 

FQ*R5 1-80 40-70 42-34* 

FQ*RTN 1-80 40-73 42-51* 

FQ*UFB 1-83 40-61 42-47* 43-30* 

FREFRK 1-62 40-54 40-55* 43-19 43-22* 

FREIOQ 1-59 1-83 

FREMEM 1-38 11-13# 

FREPGS 1-92 9-22 10-66* 11-24* 13-93* 20-57* 20-86* 

FRKCQE 1-37 2-6 1# 40-30 40-39* 44-16 

FRKGET 1-40 42-28 43-14# 

FRKPRI 1-40 2-22# 39-48 39-49* 40-9* 40-32 40-37 40-38* 40-91* 

GETMEM 1-36 9-17# 

GETRTQ 1-49 45-32 

GTRDY 6-14 6-30 7-5# 

GTSYMB 1-28 32-9# 

HI MAP 1-92 10-30 12-28 13-31 

INBSY 1-22 2-28# 8-11 

INIJMP 1-25 4S-6# 

INITFL 1-28 2-23# 

INITGO 1-63 4-6 

INTEN 1-25 33-84 37-36 38-41 39-26# 

INTENX 1-30 39-59# 

INTLVL 1-21 2-20# 39-35* 40-11* 

INTPRI 1-27 1-37 2-60# 6-37 7-6 19-84 19-167 23-69 26-23 32-17 32-29 39-47 

39-52* 40-10* 40-40 40-76 41-13 43-23 44-33 

INTSND 1-39 2-33# 41-73 

INTSTK 1-39 2-32# 39-43 

INTXIT 40-6# 

IOHLTM 1-48 7-21 

IOMAP 1-55 47-22 



d 
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IOPAGE 


1-102 


14-99 


14-100 




























JMPO 


1-32 


35-29# 






























JSTKND 


1-86 


5-24 






























JSWLOC 


1-65 


17-32 


18-47* 




























KMNCHN 


1-27 


2-4 5# 






























KMNPGS 


1-26 


2-44# 






























KMNSTK 


1-26 


2-42# 






























KMNSTR 


1-26 


2-43# 






























KPAR5 


1-101 


10-19 


10-24* 


1 0-80* 


11-14 


11-20* 


11-35* 


12- 


-15 


12- 


-19* 


12-44* 


13-25 


13- 


-30* 






13-108* 


16-29* 


17-37 


18-40* 


19-46 


19-104* 


19-203* 


20- 


-17 


20- 


-18* 


20-110* 


22-15 


22- 


-19* 






22-39* 


33-25 


33-34 


38-66 


38-73* 


39-51 


40-7* 


40- 


-49 


40- 


-59* 


40-85* 


43-28 


45- 


-48 






47-11 
































KPAR6 


1-78 


7-29* 


38-65 


38-74* 


39-50 


40-8* 


40-48 


40- 


-60* 


40- 


-86* 


43-29 










LBASE 


1-76 


9-36* 


20-49 


20-67 


20-80 
























LBSPRI 


1-57 


19-171 






























LCMPL 


1-59 


19-16 


19-68 


27-82 


























LCXPAR 


1-82 


7-29 


9-38* 


14-112 


14-122 






















I 


LF 


2-10# 






























LHIPCT 


1-104 


30-14 


30-16* 


30-30* 


30-35 


30-41* 


31-13* 




















LIOCNT 


1-48 


7-19 




























€ 


LIOHLD 


1-73 


7-21* 


19-76 


27-84 
























LITIME 


1-84 


30-12 


30-24* 


45-36 


























LJSW 


1-57 


17-33* 


18-46 


























1 


LMEMIN 


1-76 


9-21 


20-54* 


20-55* 


20-83* 


20-84* 


21-13* 


















LNBLKS 


1-79 


12-30 


12-37 


14-59 


20-42 


20-50 


20-53* 


20- 


-68 


20- 


-81 


20-82* 


20-83 


20- 


-96 




LNSBLK 


1-103 


12-31 


12-38 


20-55 


20-84 


20-98 




















i 


LODMAP 


7-47 


15-8# 




























LOKSWP 


1-32 


2-48# 






























LOMAP 


1-92 


10-25 


12-23 


13-37 


13-54 






















< 


LPARBS 


1-79 


9-42* 


14-62 


























LPRI 


1-68 


19-63 


19-91 


19-93* 


19-184 


19-186* 


23-17 


23- 


-39 


24- 


-18 


24-40 


45-40 








LQLINK 


1-70 
25-27* 


6-31 
25-32* 


23-42 
25-35* 


23-52 
26-20 


23-53* 


23-54* 


23-55* 


23- 


-57* 


24- 


-43 


25-13 


25-22 


25- 


-23 




LQUAN 


1-91 


27-54* 


31-12* 




























LSCCA 


1-62 


7-55 






























LSTATE 


1-60 


6-27 


19-188 


23-36 


23-64* 


24-37 


25-36* 


26- 


-18 


28- 


-11 












LSTSL 


1-77 


12-32 


45-24 




























LSW 


1-57 


6-29 


7-10 


7-17 


14-144 


19-172 


21-14 


21- 


-16* 


28- 


-35 


33-87* 


41-19 


45- 


-26 




LSW11 


1-50 


17-28 


18-44 


33-17 


























LSW4 


1-57 


7-53 


7-61* 


14-23 


14-120 
























LSW6 


1-99 


7-78 


12-35 


13-42 


13-59 


14-56 


14-94 




















LSW7 


1-92 


7-43 


14-146* 




























LSW8 


1-58 


46-21 






























LSW9 


1-69 


14-107 


19-31 


19-129 


28-39 


33-50 


41-25 


41- 


-29* 
















MA*RGN 


1-71 


13-94 






























MAP PAR 


1-52 


10-24 


11-20 


12-19 


13-30 


20- IB 






















MAP SYS 


1-33 


16-23# 






























MAPUSR 


1-95 


7-35 


14-143* 


1 5-29* 


























MAXSRD 


1-47 


34-23 






























MBFFLG 


1-28 


2-49# 






























MEM256 


1-55 


47-20 






























MEMPAR 


1-31 


35-25# 






























MEMSWP 


1-32 


2-47# 


21-17* 




























MEMXPN 


1-37 


20-99 


21-13# 




























MINCTR 


1-34 


2-58# 






























MINTIM 


1-72 


1-87 
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MMENBL 


1-55 


33-10 


47-19 


























MRKTHD 


1-25 


2-46# 




























NEWUSR 


1-50 


7-12 




























NMUMB 


1-90 


32-16* 




























0. PAR 


1-101 


16-29 




























ODTTRP 


1-29 


2-35# 


33-45 


























OUTBSY 


1-22 


2-29# 


8-10 


























OVRADD 


1-101 


16-28 




























OVRHC 


1-101 


7-80 


46-28 


























P0*DBG 


1-51 


41-27 




























PCCCR2 


1-76 


37-13 




























PKSTAT 


5-32 


17-15# 


19-54 


























PMBASE 


1-30 


2-70# 




























PMCELS 


1-31 


2-74# 




























PMFLGS 


1-30 


2-69# 




























PMNBPC 


1-30 


2-72# 




























PMPAR 


1-31 


2-73# 




























PMRUN 


1-31 


2-75# 




























PMSIZE 


1-97 


2-74 




























PMTOP 


1-30 


2-7 1# 




























PMUSER 


1-30 


2-68# 




























PRIVCO 


1-51 


41-27 




























PROFLG 


1-76 


37-11 


























€ 


PROSKP 


2-25# 


37-18* 


37-20* 
























PSW 


1-78 


6-23* 


6-37* 


7-6* 


7-57* 


16-25 


16-26* 


17- 


-20 


17-21* 


18- 


-17* 


18-58* 


18-59* 






19-67* 


19-84* 


19-134* 


19-167* 


23-69* 


25-12* 


26-15* 


26- 


-23* 


27-78* 


32- 


-9* 


32-17* 


32-29* 


€ 




35-10 


36-15 


38-35 


38-40* 


39-31* 


39—53* 


40-6* 


40- 


-29* 


40-40* 


40- 


-53* 


40-76* 


40-84* 




41-13* 


41-58* 


43-18* 


43-23* 


44-17* 


44-33* 


47-12* 


















QCKCPL 


27-31 


27-38 


27-45 


27-52 


27-76# 






















QCOMPL 


1-54 


45-50 




























QCPU 


1-35 


30-39 


31-10# 


























QF*IOT 


1-54 


19-119 




























QF*SCR 


1-58 


19-74 


19-114 


45-33 
























QF*SYN 


1-54 


19-119 


45-33 


























QFREE 


1-77 


19-106 




























QHDSPN 


1-28 


27-51# 




























QHDSPX 


1-35 


27-44# 




























QHIPRI 


1-24 


19-192 


29-13 


30-7# 
























QNSPND 


1-27 


27-30# 




























QNSPNX 


1-35 


21-19 


27-37# 


























QSRCH 


1-23 


26-15# 


29-11 


























QUECHR 


1-53 


46-28 




























QUNSIG 


1-39 


30-25 


30-37 


46-1 7# 
























RSUBAS 


1-98 


20-25* 




























RMNPDR 


1-81 


2-83# 


14-115 


14-116 
























RPAR 


1-64 


14-135 


14-136 


34-36* 
























RPDR 


1-64 


14-131 


34-43* 


























RUNQHD 


1-35 


1-37 


2-13# 


6-25 


23-34 


23-63* 


24-35 


25- 


-15 


25-18* 


25- 


-30* 


26-16 






RUNQTL 


1-35 


2-14# 


23-47* 


23-62* 


25-19* 


25-25* 




















S**HIP 


1-74 


28-11 




























S**RT 


1-82 


19-188 




























S**RUN 


1-53 


6-27 


23-18 


24-19 
























S$CPU 


1-51 


31-10 




























S$HICP 


1-85 


30-17 


45-38 


























S*INWT 


1-56 


1-93 




























SSIOFN 


1-51 


28-17 


30-42 
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S*LOW 1-104 23-26 24-27 < 

S*RT 1-104 23-22 24-23 

S*SPND 1-48 7-23 

S*TMWT 1-56 1-93 I 

S*TWFN 1-54 45-35 

S*WFM 1-79 21-18 

SB*LNK 1-89 32-15 i 

SB*PNT 1-62 32-23* 

SB*TXT 1-62 32-22 

SCHED 1-21 5-1 5# 27-56 41-43 < 

SETMAP 1-32 7-45 14-16# 20-106 

SLTSIZ 1-41 2-67# 

SN*ID 1-100 45-45 I 

SN*JOB 1-100 45-20 

SN*RTN 1-100 45-18 45-44* 

SNMSHD 1-89 32-10 32-15* I 

SPCPS 1-52 41-48 41-56 41-57* 

SPDJOB 1-36 2-16# 

SPSAVE 1-76 5-33* 7-65 € 

SR*PAR 1-47 34-35 

SR*PDR 1-47 34-42 

SR*PX 1-47 34-30 i 

SROMMR 1-55 33-10* 47-19* 

SR3MMR 1-55 47-22* 

SS 1-29 1-39 2-4# 5-31 19-52 19-197 47-17 i 

SSEND 1-39 2-5# 41-70 

START 4-6# 48-11 

STKLVL 1-24 2-2 1# 38-29 39-36* 40-19* 40-103* 41-8 < 

STOP 1-21 28-41 

SUTOP 1-25 20-13# 

SWAPER 1-53 8-17 € 

SWPCHK 6-18 8-5# 

SWPCOT 1-37 2-18# 

SWPJOB 1-40 2-66# < 

SWPPOS 1-40 2-65# 

SYNCH 1-31 45-14# 

SYPNCR 1-32 2-62# I 

SYSDIE 1-68 1-75 47-23 

SYSHL1 1-22 47-12# 

SYSHLT 1-59 5-26 33-68 35-17 35-25 35-29 41-72 41-75 43-21 47-1 1# < 

SYSMAP 1-33 2-36# 16-27* 

SYSXIT 1-25 41-6# 



TIKCNT 1-34 2-5 1# 37-25* 
TK5CNT 1-34 2-56# 



TRP10 1-24 33-32# 

TRP14 1-27 33-4 1# 

TRP20 1-27 33-60# 

TRP24 1-27 33-68# 

TRP250 1-23 33- 10# 

TRP34 1-28 33-72# 

TRP4 1-24 33-1 5# 

TRPAR5 1-22 2-37# 33-25* 33-34* 47-11* < 

TRPBPT 1-69 33-56 

TRPCOM 1-68 33-64 33-78 



TRPMAP 33-75 34-1 5# 

TRYMEM 1-37 9-30 10-16# 



< 
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TRYPLS 1-36 12-14# 

TRYRGN 1-36 13-21# 

TSEXEC l-6# 1-26 

TSXTX 1-68 33-28 33-37 

UEXINT 1-31 35-10# 

UEXRTN 1-33 35-21# 

UFPTRP 1-65 17-41 18-21 

UHIMEM 1-83 20-23* 36-28 

UIOCNT 1-29 2-57# 

UMODE 1-82 19-148 33-41 41-6 

UMSPSV 1-38 17-24* 18-55* 19-57* 

UPARO 1-78 14-34* 14-75* 14-135* 15-15 34-38* 

UPAR1 1-78 14-38* 

UPAR6 1-81 14-123* 

UPAR7 1-81 14-99* 14-113* 

UPDRO 1-78 14-36* 14-73* 14-87* 14-133* 15-17 34-45* 

UPDR1 1-78 14-40* 

UPDR6 1-81 14-125* 

UPDR7 1-81 14-101* 14-115* 

UPMODE 1-74 7-57 17-21 18-17 18-58 19-134 19-148 36-15 41-58 

UPSTAT 7-66 1S-15# 19-198 

UREGO 1-23 29-10# 

USP 1-22 2-59# 39-42* 40-105 

USRJOB 1-36 1-63 2-1 5# 28~37 

VHIPCT 1-104 30-27 31-13 

VINTIO 1-88 30-28 

VPAR5 1-70 22-23 47-15 

VPRIHI 1-68 19-174 19-190 23-20 24-21 

VPRILO 1-68 19-176 19-180 19-182 23-24 24-25 

VPRIVR 1-57 19-178 

VSWPFL 1-50 8-5 

WINDSP 1-49 7-80 
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DIE 3-8# 5-26 33-68 35-17 35-25 35-29 41-72 41-75 43-21 

DISABL 3-33# 6-23 19-67 25-12 26-15 27-78 32-9 38-40 39-31 40-6 40-29 40-53 

40-84 43-18 44-17 47-12 

ENABL 3-37# 6-37 7-6 19-84 19-167 23-69 26-23 32-17 32-29 40-40 40-76 41-13 

43-23 44-33 

OCALL 3-18# 7-80 46-28 



